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INTRODUCTION 


Character recognition is a task which humans perform 
with apparently little effort. We recognize letters and 
numbers of varying sizes, styles, and orientations, and we 
do this at high speeds almost every time we read. Designing 
a machine to recognize characters has proven to be a much 
more difficult task than it might initially appear to be. 
Although humans can read almost effortlessly, defining 
explicitly the conditions necessary and sufficient for a 
pattern to be considered a particular letter is a remarkable 
challenge. This paper describes my attempts to use neural 
networks to develop a computer system which recognizes 
hand-drawn upper-case letters of the English alphabet. 

ABOUT PATTERN RECOGNITION 

Surprisingly little is known about human pattern 
recognition, although there are many theories. The human 
neural network is formed during embryonic development. The 
environment in which analysis occurs is often unpredictable, 
and information is processed through the senses in real 
time. Since there is no- separation of "hardware" and 
"software", the system is not "rewired" after each incident 
of learning; instead, learning is thought to occur when 
certain synapses are reinforced (Edelman 1982). 
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People use a remarkable amount of previously stored 
information to recognize new patterns. Consider the pattern 
in Figure 1 below. In case you see it as random blotches, 

FIGURE 1 

A COMPLEX PATTERN WHICH MANY PEOPLE CAN RECOGNIZE 
(From Myers 1987, p. 26) 



it is not; the pattern is a picture of a dalmation (right) 
sniffing the ground (center). Context and predictions are 
important in shaping our perceptions. Someone who had never 
seen a dog before would probably have difficulty recognizing 
the pattern; someone expecting to see a dog would probably 
have much less difficulty. "Well-known and expected pat¬ 
terns are more readily recognized than unfamiliar 
ones. . . . Assumptions and predictions characterize most 

human perceiving" (Kolers 1968, pp. 15-16). 
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Analyzing patterns requires selective systems which 
can categorize input. Classification of stimuli is an 
extremely important human function, since this task forms 
the basis of perception. Categorization has three basic 
conditions (Edelman 1982): 

1. Recognition of similarities among things in the same 
class 

2. Recognition of differences among things in different 
c1 asses 

3. Recognition of differences among things in the same 
class 

Recognition frequently requires surprisingly broad generali¬ 
zations, since categories are often very difficult to con¬ 
fine to explicit rules; for example, can you define the 
properties of a table necessary and sufficient to classify 
it as such? Exceptions can be found for almost any rule. 

One early theory of pattern recognition describes the 
temp late. Using a template involves matching a pre-defined 
pattern (the template) directly with the pattern to be 
tested. The new pattern is compared with many existing 
templates to see if a match exists. A template has a rigid 
structure which requires similarity to a test pattern in a 
most basic, physical form to constitute an instance of 
recognition. Although it seems that the sensory store can 
be used for a rapid template match under certain conditions 
(Reed 1982), pattern recognition almost certainly involves 
other processes, too. There is overwhelming evidence--the 
phenomenon of depth perception, reconstruction of informa- 
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tion missing from the eye's blind spot, and a history of 
research--which suggests that simple image transmission and 
template-matching are not the only components of pattern 
recognition. Cortical representation and perceptual experi¬ 
ence "are highly recoded abstractions from the retinal 
image" (Kolers 1968, p. 9). 

A popular alternative to the use of templates involves 
examining some set of features of the input. Examples of 
physical features include right angles and closed curves. 
Living systems are Known to have feature detectors (Klatzky 
1980): people are slower to differentiate two letters if 

they both contain curves or if they both contain only 
straight lines (Reed 1982). Cats offer additional evidence 
for feature detectors: their visual systems have cells 
which respond to objects having very specific features: some 
cells respond only to vertical lines, while others respond 
to horizontal lines, moving lines, or lines of specific 
lengths. 

Yet another aspect of pattern recognition is the 
structural theory. A structural description of a pattern is 
a description of how the lines or features of the pattern 
are joined to each other. Structural descriptions seem to 
be important in human pattern recognition. Furthermore, 
there seem to be predominant ways of organizing features of 
a pattern (Reed 1982), but it is difficult to analyze and 
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formalize these ways, since they are so complex, and involve 
so many different situations. For example, how do you Know 
that the following figure represents two objects, and not 
three? 


The answer involves a structural theory, that is, a state¬ 
ment about how different portions of the pattern are related 
to each other. 

Human pattern recognition probably involves a combina¬ 
tion of each of the three theories mentioned above: temp¬ 
lates, features, and structural descriptions. It is quite 
possible that any one theory dominates at a particular point 
in the process--for example, templates are created in the 
visual store--and recognition occurs as a result of the 
complete chain of processing. 

THE EXPERIMENT 
Deve1opmen t 

I set out to design a system which would recognize 
hand-drawn upper-case letters produced in a variety of 
styles by a variety of writers. I reviewed the many pro¬ 
posed methods and theories of pattern recognition, some of 



which have been tested. 
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The template-based method has obvious drawbacks: 
unless a standard style of print were adopted, each style 
would require a different template. This would not be 
practical for recognizing hand-drawn characters, which show 
continuous variation, even for a single writer. 

Extracting some set of features from the patterns 
seems like an appealing alternative with an established 
cognitive basis. By using this characteristic--the feature 

detectoi-in a cognitive system, one can better model actual 

living systems, and perhaps achieve some interesting and 
significant results. 

Examining features of characters can also solve many 
common problems with variation in style. A popular tech¬ 
nique involves mimicking, in a crude way, living visual 
systems by detecting the presence of certain patterns, such 
as X .4- , and J . An example of a set of features (Reed 
1982, p. 19) that could be used in a character recognition 
system is shown in Table 1, below. One can see from the 
table that the letter "A" has a horizontal segment, diago¬ 
nals, intersections, etc. Many algorithms which analyze the 
input for features, however, still result in errors caused 
by variation in style, which can be seen in pairs such as A 
and >4 , or H and Vr. Desirable properties of a feature- 
based recognition system include the following: 

1. To achieve a high degree of accuracy, the number of 
elements, which represent the full assembly of fea¬ 
tures, must be large (Edelman 1982). 
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TABLE 1 

A SET OF FEATURES OF UPPER-CASE LETTERS 
(From Reed 1982, p. 19) 


Features 

A 

E 

F 

H 

T 

T 

T 

K 

M 

N 

V 

w 
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2. The features should yield a unique pattern for each 
letter (Gibson 1969). 

3. The number of features should be reasonably 
sma11 (Gibson 1 9 6 9) . 

Structural theory is the basis for another alterna¬ 
tive, the incidence matrix (Grenander 1968). An incidence 
matrix maps intersections, endpoints, and points where the 
direction of the line changes markedly, to other such 
points, resulting in information relating parts of the 
pattern to each other. By this method, then, patterns like 
f\ and are recognized as the same letter, since the 
connections between line segments are the same in each. The 
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extended crossing in 7 V, however, causes it to be translated 
to a different incidence matrix; furthermore, it is inter¬ 
esting to note that Av and have the same endpoints, 
intersections, and connecting lines, resulting in the same 
mapping. A mapping liKe this, which is not one-to-one, is 
not very useful. Furthermore, because structural informa¬ 
tion does not exist in fixed amounts, a fixed-size represen¬ 
tation is difficult to formulate. As a result, some effec¬ 
tive method of making comparisons between representations 
must be devised. 

Imp 1emen t a tion 

Three basic steps in pattern analysis are (1) coding 
of the input, (2) standardization of the input, and (3) the 
decision (Grenander 1968) . I sought a coding which would be 
relatively insensitive to both style and size, thus incorpo¬ 
rating the standardization step to some extent. I noticed 
that if I started at some central point in the pattern and 
drew lines radially outward in all directions, that I 
achieved the following results: ( 1 ) in any given direction, 
a line drawn outward from the central point intersects the 
pattern at a particular distance and number of points; and 
( 2 ) the distance and number of points of intersection change 
only slightly with variations in style. In fact, Pitts and 
McCulloch (1947) refer to "invariants of translation" in a 
human reflex mechanism, whereby the eyes shift to the center 
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of gravity of the distribution of brightness in an image. 
With this Knowledge I began to devise my first test. 

I wanted to employ autoassociation and the BSB 
("Brain-state-in-a - box“ ) method (Anderson 1986) of pro¬ 
cessing vectors, because these techniques model the human 
nervous system with a simple network of connections. First, 
the system associates inputs with themselves, using a 
Widrow-Hoff error-correction scheme. The BSB algorithm, 
applied later, is an attractor model which approximates 
pushing a vector of many dimensions into one corner of a 
hypercube. Added advantages include a large number of 
elements, resistance to noise, and the ability to map any 
set of features to some particular, c1osest-matching set. 

A binary coding would probably work best with the 
processor. I first thought of a "purely visual" coding. 

Each radial line would determine five bits. The radial line 
was divided into five equal segments, ending at the overall 
radius of the pattern. The leftmost of the five bits would 
represent the portion of the radial line close to the center 
of the pattern; the rightmost bits were for the peripheral 
parts. If some fifth of the given radial line intersected 
the pattern, the appropriate bit would be marked with a one; 
otherwise, the bit would be zero. 1 


1 In actual practice, all bits 0 were changed to -1. 
Thus the final vectors contained decimal values of either 1 
or - 1 . 



I wanted similar patterns to have similar codings. To 
the BSB processor, however, which uses linear algebra, a 
coding like 01000 is as different from 10000 as it is from 
00001. This would deter from the accuracy of recognition 
using a direct coding like the one described above. To 
solve the problem, I would have to use five bits not for all 
intersections of one radial line with the pattern, but for 
just one such intersection. I marked with ones all bits to 
the left of and including the bit corresponding to an inter¬ 
section. With this scheme, what might have been 00100 
became 11100. The coding 11100 resembles 11000 more than it 
resembles 10000. These results match those obtained by 
altering the corresponding patterns slightly. 

I encoded only the innermost and outermost intersec¬ 
tions, yielding ten bits per radial line. A dimensionality 
of 200 allowed for 20 radial lines, or what grew to be "pie 
slices" to account for noise (points missing from the pat¬ 
tern) . 

I used a mouse-contro11ed BITPAD to create a model set 
of what I considered "perfect" letters, and a set of test 
patterns drawn quickly and naturally by me. They are shown 
in Appendix A, below. Autoassociation was used to train the 
system with the model set, resulting in a 200 x 200 matrix. 
The program was written in PASCAL and executed on a VAX. It 
is listed in Appendix C. 



I needed a way to determine an appropriate central 
point. I could average the extreme coordinates, but then 
wild, extending lines in the pattern would throw off the 
centerpoint substantially. I decided to use the center of 
mass of the points, since it is resistant to single small 
changes in the pattern. 

Decisions were made as follows: first, the BSB non¬ 
linearity was applied to each model vector, and the 26 
resulting "BSBed" vectors were stored. To find a match for 
a test vector, BSB was applied to the vector, and then the 
most similar 2 of the BSBed model vectors was considered a 
match. 

Experiment 1■ Thirty presentations of each model 
character were used to train the system. Of 26 characters, 
only nine were not recognized. They are shown in Table 2, 
below. The column labeled "Human error" indicates whether 
similar mismatches occurred in a test of human subjects. 3 
The complete chart of human errors is shown in Appendix B. 

Six out of the nine errors also occur in human sub¬ 
jects. Intuitively, it is easy to see how these errors can 
occur; 'F' and 'P' overlap almost completely, as do 'C' and 
'O'. A ' T' with a curved top resembles a ' Y' . 


2 The similarity of two vectors was measured by the 
cosine between them. 

3 The "direction" of the human error is not considered 
in this analysis. For simplicity, letters shown and letters 
called were considered reversible. See Appendix B. 



TABLE 2 


ERRORS USING A POLAR SYSTEM 
WHICH DETECTS INNERMOST AND 
OUTERMOST POINTS OF INTERSECTION 
WITH RADIAL LINES 


Actual 

Match 

Human 

charac ter 

found 

error 

C 

0 

yes 

G 

Q 

yes 

H 

W 

yes 

P 

F 

yes 

Q 

S 

no 

R 

E 

no 

X 

N 

no 

Y 

T 

yes 

Z 

B 

yes 

Total errors: 9 



E xperimen t 2■ One problem with using the center of 
mass as a central point is that this causes letters like ' T' 
and ' Y' to have very similar codings. Because only the 
innermost and outermost points of intersection were encoded 
for each radial slice, letters like X anc * N also had 
overlapping codings. If a mid-range point of intersection 
were used, rather than an innermost point, perhaps some of 
the ambiguities could be eliminated. 

The results of this change followed expectations. 

Using points of intersection at mid-range and outermost 
distances, only six of the 26 characters were not recognized 
correctly. They are shown in Table 3, below. Four out of 
the six errors also occur in human subjects. 



TABLE 3 


ERRORS USING A POLAR SYSTEM 
WHICH DETECTS MID-RANGE AND 
OUTERMOST POINTS OF INTERSECTION 
WITH RADIAL LINES 


Actual 

Match 

Human 

character 

found 

error 

C 

0 

yes 

G 

B 

no 

H 

M 

yes 

P 

R 

yes 

S 

B 

yes 

z 

R 

no 

Total errors: 6 



One weakness of the radial technique is that it 
hinders recognition of letters affected by stretching dis¬ 
tortions in one direction. For example, if 1^ is learned, 

R would not be recognized correctly. Although I did not 
employ a normalization scheme to correct this weakness, such 
a procedure would be necessary if the radial system were to 
recognize letters of a wide variety of styles. This process 
is part of the standardization step. 

Although in designing this radial, or polar, method of 
recognition, I examined features of letters, I do not con¬ 
sider it an ad hoc method, because it neither requires the 
presence of certain letterlike features, nor requires that 
letters be the patterns being recognized. The method could 
be used to recognize all Kinds of pictures. It is simply 
sensitive to certain features, rather than others. 



After I experimented with the system, I was eager to 
test some of the popular techniques based on orientation of 
line segments. I reviewed an interesting line-tracing 
algorithm (Mason and Clemens 1968) — that is, a way to trace 
the pattern from point to point in an orderly fashion, using 
directions of the tracing movement as a way to detect line 
segments of a particular orientation. Unfortunately, the 
simple tracer I examined does not handle noise with much 
skill. Missing points--especia 1 1 y on diagona1s--of ten 
confuse it, leaving portions of the pattern unnoticed. 

There were other subtle complications, such as ensuring 
detection of all areas in the pattern, marking areas already 
examined, and accounting for large gaps. Although in later 
experiments I employed a "filling" routine to correct some 
effects of noise, I did not implement a tracer successfully. 
The tracer's problems are rooted in its failure to involve 
structural theory. Tracing a complex path in a sophisti¬ 
cated fashion probably requires integrating structural 
information during the trace. 4 The importance of incorpo¬ 
rating structural description into a cognitive model of 
recognition can be seen easily by reviewing Figure 1. 

E xperimen t 3■ Certainly, if I examine any column in 
my grid of points and spaces, if there is some minimum 
number of points in the column, then a vertical line segment 

4 0 f course, parallel architecture would be convenient 
for such parallel processes. 



is present. Because of the noise caused by the input 
device, I decided to examine vertical "bars"--sets of adja¬ 
cent co1umns--rather than single columns. 

A hybrid system was created to test the scheme. I 
reduced the number of bits of the previous polar system from 
200 to 180, and substituted 20 bits of encoded information 
about line orientation. Six segment types were detected: 
left- and right-s1 anting diagonals, vertical segments to the 
left and right of center, and horizontal segments above and 
below center. All vertical and horizontal segments were 
represented by three bits: 000 for no segments present, 100 
for one segment, 110 for two segments, and 111 for three or 
more. 5 

I used a bar width of 2 to 3, and assumed a critical 
number equal to some fraction --typica11y, 0.6--of the pat¬ 
tern radius; if the pattern radius were ten, for example, 
then six points in a vertical bar of width 2 must be present 
to assume that the bar contains a vertical segment. This 
modification showed no improvements over the first test. 
Results are shown in Table 4, below. 

Although a large assembly of information concerning 
orientation of line segments can result in unique codings 
for each letter, only the limited information described 
above was tested with this system. Perhaps the greatest 


5 Again, -1 replaced 0 in the final implementation. 
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TABLE 4 

ERRORS USING A HYBRID SYSTEM: 
POLAR COORDINATES AND 
LINE ORIENTATION 


Actual 

Match 

Human 

character 

found 

error 

A 

P 

no 

C 

0 

yes 

G 

B 

no 

H 

W 

yes 

R 

P 

yes 

S 

B 

yes 

X 

K 

yes 

Y 

T 

yes 

Z 

R 

no 

Total errors: 9 



problem with using a line-oriented approach, however, is 
that hand-drawn letters do not support it; that is, they 
often differ from printed letters, resulting in many differ¬ 
ences in line-based information. An inspection of Appendix 
A will clarify this intuitively. Actual differences in 
codings between model and test sets of data used in this 
system can be seen more clearly in Table 5, below. 

Experiment 4. In a fourth test, the position of 
endpoints was introduced into the coding. An inspection of 
Table 6 shows that this information is more consistent 
across the two sets of data than information about line 
segments. Comparing model with test data, Table 5 shows 6 
perfect matches of line-based information, while Table 6 
shows 17 perfect matches of information about endpoints. 



1 7 


TABLE 5 

MODEL AND TEST CHARACTERS: 
INFORMATION ABOUT LINE SEGMENTS 


"A": 0 

0 

0 

1 

2 

3 

Grid 

radius 

= 

8 

"N" : 

1 

1 

0 

0 

3 

0 

Grid 

radius 

a 

8 

0 

0 

0 

1 

0 

1 

Grid 

radius 

” 

14 


1 

1 

0 

0 

2 

0 

Grid 

radius 

- 

13 

"B" : 1 

2 

1 

2 

2 

0 

Grid 

radius 

= 

9 

"0" : 

1 

1 

1 

1 

2 

1 

Grid 

radius 


8 

2 

1 

2 

1 

2 

1 

Grid 

radius 

=* 

10 


0 

0 

1 

1 

0 

0 

Grid 

radius 

- 

14 

"C": 1 

0 

1 

1 

2 

1 

Grid 

radius 

= 

9 

II p II . 

1 

0 

1 

1 

1 

0 

Grid 

radius 

_ 

8 

1 

0 

1 

1 

0 

1 

Grid 

radius 


12 


1 

0 

1 

1 

0 

0 

Grid 

radius 

a 

12 

"D" : 1 

1 

1 

1 

1 

2 

Grid 

radius 

as 

9 

"Q" : 

1 

1 

1 

1 

3 

1 

Grid 

radius 

_ 

8 

1 

0 

1 

1 

1 

0 

Grid 

radius 

m 

13 


1 

1 

1 

1 

0 

0 

Grid 

radius 

- 

13 

"E": 1 

0 

1 

2 

0 

0 

Grid 

radius 

- 

9 

"R" : 

1 

1 

1 

1 

3 

2 

Grid 

radius 

a 

9 

1 

0 

1 

2 

0 

0 

Grid 

radius 

a 

13 


1 

0 

2 

0 

0 

0 

Grid 

radius 

- 

14 

tfUjfk: 1 

0 

1 

1 

0 

0 

Grid 

radius 

- 

9 

" s " : 

1 

1 

1 

2 

3 

1 

Grid 

radius 

a 

8 

1 1 

0 

1 

1 

0 

0 

Grid 

radius 

m 

13 


0 

0 

2 

1 

0 

0 

Grid 

radius 

=■ 

12 

"G": 1 

0 

1 

1 

1 

2 

Grid 

radius 

a 

8 

?T|: 

1 

0 

1 

0 

0 

0 

Grid 

radius 

a 

8 

1 

0 

1 

2 

0 

2 

Grid 

radius 

" 

12 

1 

0 

1 

0 

0 

0 

Grid 

radius 

- 

14 

1 

1 

0 

1 

0 

0 

Grid 

radius 

a 

8 

" U " : 

1 

1 

0 

1 

1 

0 

Grid 

radius 

a 

9 

1 

1 

0 

1 

0 

0 

Grid 

radius 

a 

13 


1 

1 

0 

1 

0 

0 

Grid 

radius 

“ 

13 

um i 

0 

1 

1 

0 

0 

Grid 

radius 

a 

8 

"V" : 

0 

0 

0 

0 

2 

2 

Grid 

radius 

=x 

8 

i 

0 

1 

1 

0 

0 

Grid 

radius 

= 

14 


0 

0 

0 

0 

0 

1 

Grid 

radius 

■ 

15 

"J”: 1 

c 

1 

1 

1 

0 

Grid 

radius 

a 

8 

"W" : 

1 

1 

0 

1 

2 

2 

Grid 

radius 

=1 

9 

1 

0 

1 

1 

0 

0 

Grid 

radius 

= 

14 


0 

0 

0 

0 

0 

0 

Grid 

radius 

=* 

16 

" K " : 1 

0 0 

0 

I 

2 

Grid 

radius 

a 

8 

"X" : 

2 

0 

0 

0 

3 

3 

Grid 

radius 

a 

7 

1 

c 

0 

1 

0 1 

Grid 

radius 

m 

13 


0 

0 

0 

0 

2 

2 

Grid 

radius 

as 

13 

"L"C 1 

0 0 

1 

0 0 

Grid 

radius 

a 

9 

ii y " • 

1 

0 

0 

1 

2 

2 

Grid 

radius 

. 

7 

^ 1 


0 

1 

0 0 

Grid 

radius 

- 

15 


1 

0 

0 

1 

3 

1 

Grid 

radius 

= 

9 

"M": 1 

] 

1 

0 

2 

Grid 

radius 

a 

9 

"Z": 

0 

0 

1 

1 

0 

3 

Grid 

radius 

a 

8 

1 

10 0 12 

Grid 

radius 

= 

13 


0 

0 

1 

1 

0 

1 

Grid 

radius 

" 

15 

1 

> - 


/ 

, i 


MODEL 

CHARACTERS ARE 

HIGHLIGHTED 

IN 

GREEN 






KEY 


■ Right-slanting diagonals (O=no, other=yes) 

' Left-slanting diagonals (0=no, other=yes) 

■ Number of low horizontals 

• Number of high horizontals 
- Number of verticals on right side 

• Number of verticals on left side 
ORANGE! INDICATES A PERFECT MATCH BETWEEN MODEL 8> TEST SETS 


Results of the test are shown in Table 7, below. This test 
was most successful, since 5 of 6 errors correspond to 
similar human errors. 

Other tests . Several other tests were performed. One 
was designed to determine the effect of learning the test 
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TABLE 6 

MODEL AND TEST CHARACTERS: 
INFORMATION ABOUT ENDPOINTS 


" a : -1 
-1 

- 1 

- 1 

1 

1 

t 

1 

'• N" : 1 - 1 

1 1 

1 -1 

1 -1 

" B" : -1 
- 1 

- 1 
- 1 

- 

” 1 

" 0" : - 1 - 
- 1 - 

- 1 -1 

1 -1 

1 

- 1 

- 1 

- 

1 

1 

" P " : - 1 - 

1 - 1 
i-i 

* D" : - 

- 

- 

- 1 

" Q " ; . , . 

1 * 

i-i i 

i-i 1 

■ E” : 

- 

' 

1 

1 

" R" : -1 - 
1 - 

1 1 1 

1 1 1 

“F- 

_ 


t 

»S •: -1 - 

1-1-1 

- 


1 

1 - 

1 i-i 

" G“ : 

- 

- 

t 

1 

mm: 

1-1 1 

1-1 1 

mm- 



1 

1 

mm: 

l-i-i 

1-1-1 

' r 



1 

1 

1 

1-1-1 

i-i-i 




- 1 

” w " : i 

1 

1 -1 - 1 

1 i-i 

fm 



1 

1 

m- < 

i 

1 1 1 

1 1 1 

" L" : - 


“ 

1 

1 

" Y" : l 

1 

t -1 1 

1-1 1 

• M" : - 

- 

- 


1 

1 

" Z “ : - 1 

1 

i-i 1 

1-1 1 

i 

, > 

L / 

‘ T MODEL CHARACTERS ARE HIGHLIGHTED IN GREEN 
‘— Endpoints in quadrant IV (l=yes, -l=no) 
- Endpoints in quadrant III (l=yes, -l=no) 


Endpoints in quadrant II (l=yes, -l=no) 


Endpoints in quadrant I (l=yes, -l=no) 
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ORANGE INDICATES A PERFECT MATCH BETWEEN MODEL & TEST SETS 


set of data following training with the model set. Another 
test examined the effect of shifting the non-linearity to a 
later stage. Yet another test examined the effect of gener¬ 
ating the vectors of comparison at a different stage during 
the learning process. Other tests were also performed, such 
as training only with test data. 
















TABLE 7 


ERRORS USING A HYBRID SYSTEM: 
POLAR COORDINATES, LINE ORIENTATION, 
AND POSITION OF ENDPOINTS 


Actual 

Match 

Human 

character 

found 

error 

B 

S 

yes 

H 

M 

yes 

R 

P 

yes 

X 

K 

yes 

Y 

T 

yes 

Z 

E 

no 

Total errors: 6 



Many of the tests improved some areas of performance, 
but no test of a broad but reasonable sample of test input 
resulted in fewer than five errors out of 26 letters tested. 

SUMMARY OF RESULTS : COMPARATIVE PERFORMANCE 

The most successful model tested here yielded a recog¬ 
nition rate of about 77%. The table in Appendix B shows 
that if a random alphabetic error were to occur, it would 
correspond to a similar human error only 9% of time 
(60/676). The random chance that 5 out of 6 errors match 
human errors, as they do in Experiment 4, is extremely small 
(p < 0.001). Therefore, the model is significant in its 
cognitive mimicry. 

Many studies have been performed using a wide variety 
of techniques. In a study by Dydyk and Kalra (1970), for 
example, a character was matched simply to 1 of 4 subsets of 
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shapes. A vector representing 18 features was then compared 
with previously stored data to make a match. The recogni¬ 
tion rate of that model was 65%, lower than that of the 
present mode 1 . 

Although the present model performs better than the 
simplest models tested, many other models which involve 
training and testing with thousands of sets of data perform 
quite well. Some tests, including ones which involve 
sophisticated smoothing and filtering algorithms, have 
yielded recognition rates as successful as 99.64% on some 
sets of data (Suen et a 1 . 1980). Unfortunately, limits of 

time and resources prevented testing the present model with 
large numbers of samples. 

DISCUSSION 

The strictly "polar" model is especially interesting, 

since its physiological correlate is hardly understood. 

Pitts and McCulloch (1947) write (p. 146): 

The adaptability of our methods to unusual forms of 
input is matched by the equally unusual form of their 
invariant output, which will rarely resemble the 
thing it means any closer than a man's name does 
his face. 

The polar model tested herein showed fairly impressive 
results, both in its correct matches, and in the closeness 
of its errors with errors of human subjects. 

The system described is not intended to model a human 
brain; the structure of the system, however, gives it the 
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apparently intelligent ability to generalize upon and learn 
new information. This ability is emphasized by the fact 
that training occurred only with model data, but recognition 
occurred with test data. 

Mental rotation is a significant psychological phenom¬ 
enon not accounted for in this model. Humans can recognize 
rotated characters, 1ike^~, in a time proportional to the 
angular distance traversed in rotating the character to an 
upright position (KlatzKy 1980). If a way to rotate input 
were employed, however, it would probably involve rotating 
the character to maximize the number of vertical and hori¬ 
zon t a 1 segment s. 

By its nature, mental rotation must involve ad hoc 
methods. It would seem to involve a complex template-based 
matching scheme with fast parallel operation. For my system 
to perform rotation, it might perform a series of rotations, 
testing for segments each time, and eventually finding the 
closest match to an upright figure. This process is time- 
consuming and cumbersome for the common serial computer. A 
proper cognitive model, however, must account for rotation, 
and must perform rotation quickly. 

We know that there are living visual systems which 
have detectors able to sense features such as line orienta¬ 
tion. The improvements in this experiment which resulted 
from including such feature-based information support the 
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usefulness of the feature detector. A polar system like the 
one described herein, however, and one described by Pitts 
and McCulloch, may also have important consequences at some 
relatively high level in the human processing system. The 
relative success of the polar system suggests not only the 
possibility of polar encoding of information, but also 
emphasizes the general importance of higher-level processing 
in the human visual system. Even with feature detectors, 
the mere knowledge of existence and most general placement 
of horizontal and vertical lines, for example, does not seem 
to be enough to determine a single character. It seems that 
more complex information, such as relative positioning of 
specific lines and awareness of subtle differences between 
shapes, is essential for consistent, accurate character 
recognition. 

CONCLUSION 

A system for recognizing hand-drawn upper-case letters 
has been described. It uses a neural network with autoasso¬ 
ciation to learn a model set of characters. The BSB non¬ 
linearity is employed to classify the input in order to find 
a closest match. The first model uses polar coordinates to 
encode radial information about the input. The second model 
is a hybrid of the first, model with information about ver¬ 
tical, horizontal, and diagonal lines detected in the input. 
A third model encodes additional information, about end- 
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points. The models tested normalize the input for size and 
translation in the field. The best model incorporated the 
most information about the pattern, including polar informa¬ 
tion, information about segment orientations, and the posi¬ 
tion of endpoints. The rate of recognition was 77%, a value 
comparable with those from previous studies, but much lower 
than human rates of recognition around 96%. The similarity 
of errors to those of human subjects confirms the model's 
cognitive significance. 

Human pattern recognition seems to be an extremely 
complex process closely tied with perception. It involves 
the ability to generalize on a very broad scale, apparently 
incorporating information at many levels, such as levels of 
immediate physical input, feature- and structure-based 
analyses, and prior experience. Despite the success of some 
man-made systems using limited sets of data, few systems 
which recognize hand-printed characters are actually in use, 
presumably because of inconsistencies across larger samples. 
The great discrepancy between our ability to recognize a 
relatively simple system of letters and our ability to 
formalize our own internal systems accentuates the natural 
powers of the human mind. 



APPENDIX A 


MODEL AND TEST LETTERS 
USED FOR RECOGNITION 


24 



25 



Test 


Model 


Test 


Model 





















































26 



Test 


Model 


Test 


Model 


































27 


Test 


* 

...” 


Model 

Test 

Model 








APPENDIX B 


CHARACTER-RECOGNITION 
IN HUMAN SUBJECTS 


ERRORS 


28 



CD O 

















APPENDIX C 


LISTING OF THE PROGRAM 


30 



File: PC R PAS m 


Last 


rittoii on 02 /19/88 at l9:0i:40 


Pago 1 


PRQURAM PCH5 i Input , Output, Padin, Pad out , Grid_filo, Print_filo, 

Voc_fi to. M a t f i I o ); 

BROWN UNIVERSITY 

Thesis project 

CHARACTER RECOGNITION 
USING NEURAL NETWORKS. POLAR COORDINATES, 

AND lINE •RIENTATION 

Michael Weiner 

Undergraduate candidate for honors Sc . b . degree in Cognitive Science 
1 8 F ebr u ar y 198 8 

This program is designed to recogni/e hand-drawn upper-case letters of the 
English alphabet. The program accepts input from a mouse - contro1 1ed bITPAD. 
It then analyses the input using polar coordinates, orientation of line 
segments, and position of endpoints detected in the input. The ti$B non- 
linearity is applied to vectors encoded with this information. The resulting 
vector is then compared with similarly processed vectors from a model set of 
data, and a best match is then found and reported. 


CONST 

Dimensionality * 206 I 

Char filo 3 'GRIDS.DAT'; File of stored mode I characters 

Tostfile 8 'TEST.DAT'; File of stored test characters 

VocsI_fiIo * 'VECSi.DAT' ; File of stored mode 1 vectors 

Vocs2 file 8 ‘VECS2.iAT'; File of stored tost vectors 

Auto_fi!e = 'AUTO.OAT'; File of the autoassociated model matrix 

bSti_vec file - 'BSiV.DAT'; File of BSBed mode 1 vectors 

BSB_Output file = ' USB0.DAT' I File of BSBed mode I vectors for output 

Match_file * ' TE S1 .VEC' ; File of vector ma tches 

Present s 30; Average number of presentations for each character 

Pcrcent_thresh 8 100: Do not ignore any input points 

N_chars - 26; Number of characters to recogni/e 

Charstart_va1ue = §5; ASCII value of first character to recognize 

N_slices 8 '3; Number of pie slices for input 

N_rings - 6; Number of rings (subdivisions! of each slice 

P ad _widt.h * 2200 ; Maximum X value of BITPAD 

Pad height * 2200; Maximum Y value of BiTPAO 

X e 1; These definitions maKe using arrays convenient 

y 8 2 ; . 

lo = i; 

Hi = 2 ; 

C aso_difforonce = 0 R0 i'a'i - 0RI ( ' A ‘ ; for case conversion 

Pi =3. 141592654; 

0 theta 8 2 ♦ Pi / N slices; Angular size of each pie slice 

Comma * , ' ; 

Screen_height * 23; 

Screen width * /9; 

Grid_width * S c r eon _wid t h; Highest X-valuo for input 

Grid_hoight = Screon_height; Highest f-value for input 
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P age 


2 


C 5 I 

Ye 1 low 

White 
b lue 
Green 
Bi t_rate 
R i gh t 
Up 
Left 
Down 

Connects max 


*27 i ♦ ' (' ; Screon - controI code 
Buttons Of the BITPAO mouse 


Switchod-stream mode for BITPAD 
Used for tracing; this routine was not implemented, 
and is incomplete 


Used for tracing; this routine was not imp1 ernentod, 
and is incomplete 


TYPE 

Vector « ARRAY | 1 ..0imensiona IityI OF REAL; 

Matrix aARRAY | I . .Dime nsionality, l..Dime nsionality] OF REAL; 

Cornice t i v i t yjna t r i x a ARRAY | I . . Connec t s_ma X , 1 . . Conncc t s_ina x I OF BOOLEAN; 
Used for tracing; this routine was not implemented, and is incomplete 
Vector_sot * ARRAY |l..N_charsl OF Vector; 

Matr i x_sot 8 ARRAY i I..N_chars] OF Matrix; 

HistOrytype * lNEW,OLD,RE A DONLY,UNKNOWN1; 


Slice code 


ARRAY | I . .2«N_rtugs 1 Of INTEGER; 


Bits of encoded input for one slice 


Grid 

T wo _things 
Point 
L i no 
RS I ice 
Slice bits 


= ARRAY | 0. .Grid_width,0. .Gr id_hoighti OF BOOLEAN; 

* ARRAY | 1 . .21 OF INTEGER; 

= T wo_ things; 

* array I I . . 2 1 OF Point; 

s ARRAY { I . .2 1 OF Line; Corners Of ring-slice 
s ARRAY | 1 . .N_rings} OF INTEGER; 


Encoded input for one intersection of one slico*'half of Slice_code 
Ring__radii 2 ARRAY ( 0 - - N_ r i ngs I OF REAL; Radii of ring-slices 
String 8 VARYING (801 OF CHAR; 

Direction 8 0..3; 0 = right; 1 = up; 2 = loft; 3 ~ down 

Used for tracing; this routine was not implemented, and is incomplete 
Sog_>its * ARRAY (1..31 OF INTEGER; 

For 1 unit of lino-based information 
End_bits * ARRAY |l..4| OF INTEGER; 

For 4 units of information about endpoints I 1 unit for each quadrant! 


VAR 

Seed : INTEGER :* 22; For random-number generation 

Group ; INTEGER * 5; Number of screen groupings 

Pdd_in, P ad_ou t ; TEXT; BITPAO 

Grid_file : FILE OF Grid; 

Vec_7ile : FILE OF Vector; 

Mat file : FILE OF REAL; Autoassociation matrix 

Printfile ; TEXT; 

Out_char ; ARRAY I0..t) OF CHAR; Screen characters for Grid 

BSB_dono : BOOLEAN := FALSE; 

TRUE if model vectors have boon BSBed " » 

BSB_veC_sot : VeCtOr_sot; BSBed model vectors 

Automatrix : Matrix; 

VT220 ; CHAR .* = ■ N' ; Current terminal a VT220 ? 


For random-number generation 
Number of screen groupings 


Autoassociation matr 


PROCEDURE Clear screen; 
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Clear the screen 

BEGIN 

IF (VT220 = ' Y* l THEN WRITEtCSI,'2d' ); 

END ; 

PROCEDURE Cursor posn iCol, R#w : INTEGERf ; 

Position the cursor on the screen. < 0.0 i is the lower left-hand corner. 

V 4 K 

>._COord, Y_COOrd : INTEGER; 

BEGIN 

IF * V T 2 2 0 = ' ¥' i THEN 
BEGIN 

X_c*«rd ;s Coll 
¥_coord := Row; 

IF Col > Scroen_width THEN >_coord : = Screcn_width ELSE 
IF Col x 0 THEN x coord :* G; 

IF Row > Screen_height THEN Y_c#»rd := Screen_height ELSE 
IF Row < 0 THEN Y_coord := 0; 

WRITE I CSI . Screen_height-Y_coord; 1 , ' ;' .X_coord * 1, ' H' i; 

END; 

END ; 

PROCEDURE Clear line 'Row : INTEGER I ; 

Clear the entire line (row given by Rowi 

BEGIN 

If < V T 2 2 0 a T i THEN 
BEG 1 N 

Cur sor_posn (0 , Row I ; 

WRITE (C $ I , ' 2 K' i ; 

END ; 

END ; 

FUNCTION Dil-oc (Num* : INTEGER) : INTEGER; 

Standardise numerical ly the current direction; used for tracing; this 
routine was not implemented, and is incomplete 

BEGIN 

D i rec : = Num Mlli 4 ; 

END; ' 

FUNCTION Scrunch (Number, Scrunch_from, SCrunch t# : INTEGER 1 : INTEGER; 

Map one scale to another 

BEGIN 

Scrunch := ROUND (Number * ScrunCh_to / Scrunch^fr*mi; 

END; 

FUNCTION Ins t r (Start * INTEGER; 

Object, Search ; Stringj ; INTEGER; 

Position of Search in Object. Search will bo found if it is Ucated at 
position Start after. 


BEGIN 

Ins tr := INDEX ( SUBSTR (Object, Start,LENGTH(Ot>jeCtl -S t ar t♦ 1 1 .Search! 

+ Start - l ; 

END ; 

FUNCTION MTHSRANDOM (Seed: INTEGER): REAL; EXTERN; ' Set up for random nos 

FUNCTION Random ! REAL; 

Get a random number between 0 and I 

BEG I N 

Random := M T H$RANDOM (Seed); 

END; 

FUNCTION R and_t n t IMax : INTEGER! : INTEGER; 

PicR a random integer from I to Max 

BEGIN 

Rand int ;* TRUNC i Rand#m*Ma x ♦ 1 ) ; 

END ; 

PROCEDURE Ou tor product (A, B : Vector; 

VAR C : Matrix!; 

Compute the outer product IAtitransposoi of two vectors (A & B) 

VAR 

I . d : INTEGER; 

BEGIN 

FOR 1 := 1 to Vimension a 1 ity DO 

FOR d := 1 to • iiiicns ion a 1 i ty DO C (I,J) :* BlJl * Alii; 

END ; 

PROCEDURE Ini tia 1i7e vect#r (VAR Voc : Vector!; 

Zero vector elements 

VAR Bin ; INTEGER; 

BEGIN 

FOR bin := l t• •imens iond1ity DO 
Voc (B in 1 : a 0 ; 

END ; 

PROCEDURE Matrix_times_vector (A : Matrix; 

F : Vector; 

VAR G : Vec tor » ; 

Multiply matrix times vector 

VAR 

l, d : INTEGER; 

BEGIN 

I n i t i a T i 7 , e_vec tor (Gi; 

FOR I ;= i TQ Dimensionality 00 
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FOR j := l TO Dimensionality DO Gil) :* Gill ♦ All.dl ♦ F|J|; 

END; 

PROCEDURE P r i nt voC 1 Hoc : Vector 1 ; 

Print a voCtOr 

VAR 

Slice, Bit : INTEGER; 

Counter : INTEGER; 

BEGIN 

FOR Slice : = t TO Nslices DO 
BEGIN 

Counter : - 0 ; 

FOR Bit :s 1 to 2 * N_rir»gs DO 
BEGIN 

WRITE i* VocI<S 1 ice-1 1 «2*N_rings+HitI:5:21; 

Counter ;s Counter * l; 

IF iCounter >= Groupl THEN 
BEGIN 

WRI TEL N; 

Counter ;= 0; 

END; 

END ; 

WRIIELN; 

END; Slice 

END; 

PROCEDURE Add_vec tors <Vector_i, Vcctor_2 : Vector; 

VAR VeCtor_sum : Vector); 

Add two vectors 
VAR i : INTEGER; 

BEGIN 

FOR I :* 1 to Dimensionality Di 

Voctor_sum ill :« Vector_l il] * Vector 2 III; 

END; 

PROCEDURE Add matrices (Ml, M2 : Matrix; 

VAR M_sum : Ma tr i x ) ; 

Add two matrices 
VAR I, J ; INTEGER; 

BEGIN 

FOR I := l to D iiiioits ion a l i t y DO 
FOR J := 1 to Dimensionality DO 

M sum I I , d 1 : = Mi I I,d| ♦ M2 U,dl; 

END ; 

PROCEDURE SuDtractveCtors iVector!, Voctor_2 ; Vector; 

VAR Vector^d> ffor ence : Vector); 

Subtract 2 vectors 
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VAR I : INTEGER; 


BEGIN 

FOR its I to Dimensionality 00 

Voctor_diffcronco III t= Vector_l III 

end; 


Vec tor_2 III; 


FUNCTION Vec tor__l ength (Vector_l t Vectorl t REAL; 

Find length of vector 

VAR 

Sum_of _squares i REAL; 

I : INTEGER; 

BEGIN 

Sum_of_squares:* 0; 

FOR lt= l TO Dimensionality DO 

Sum_of_squares t= Vector_l (I|*VoCtor_l II] + Sumof_squares; 

Vector_length:* SORT (Sum_of_squarcsI; 

END; 

PROCEDURE Sealar_times_veCtor (Scalar : REAL; 

Vector_in : Vector; 
var Vcctor_out : Vector!; 

Dilate vec tor 
VAR I : INTEGER; 

BEGIN 

FOR I := I to Dimensionality DO 

Vcctor_out III := Scalar * Vector_in III; 

END; 

FUNCTION Innorproduct (VeCtOr_l, VoCtor_2 t Vector! : REAL; 

TaKe inner product 

VAR 

I : INTEGER; 

Sum_o f_produc t s t REAL; 

BEGIN 

Sui»_of _pr oduc t s := 0 ; 

FOR I t= 1 TO Dimensionality 00 

Sum_Of_produCts t* VectOr_l III * Vcctor_2 III * Sum_ 0 f_produCts; 
Inner _produC t t= Sum__of _pr oduc t s ; 

END; 


PROCEDURE Normalize (Voctor_in : Vector; 

VAR Vec tor __ou t : Vector!; 
Normalize a vector 


VAR 

teogth_of_vector_in 

I 

Vec tor_in_is_zero 


REAL ; 
INTEGER ; 
BOOLEAN ; 


DO 
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BEGIN 

Voctor_out :» Vector,in; 

Longth_of_vcctor_in :* Vcctor_length iVector_inI; 

IF < L on g t h_o f _vcc tor _ i n = Ol THEN Voctor_in_i s_/oro .*= TMUE 

ELSE Voct*r_in_is.,?ero FALSE; 

IF Vector in_is_zerO 
THEN UEGIN 

WRITE i'NonnaT i zed 7CrO vector:'it 

Veclor_out ;s tfoctor_in; Make Voctor_out the zero vector 
END No semicolon here! 

ELSE FGM I :* 1 to Dimensiona 1ity DO 
VoCtor_out {]} := VeCtor_in III / Longth_of_voctor_in; 

END; 

FUNCTION Vector cosfne IVoctor_l, VeCtor_2 : Vector!: MEAL; 

Find the cosine between two vectors 

V AM 

Norma)_voctor_ 1, Norma1_vector_2 : Vector; 

BEG I N 

N • rmalizc I V«C tor_1 , Norma 1 _vector_ 1 ) ; 

Normalize iVcCtor_2, Norma 1 _vector 2 1 ; 

VeCtor_cosino := lnnor_produCt 1 Norma 1_V0Ctor_1 , Norma 1_vector_21; 

END; 

PMOCEDUME Inftfa 1ize_gr i4 IVAN Data grid : Grid); 

Set grid elements to FALSE 

V 4 K 

A coord, Y_coord : INTEGEH; 

BEGIN 

FON X coord := I TO Grid_width DO 
FiR Y_co»rd ; * 1 TO Grid_height Dt 

Datagrid [ X_coord . Y_COOnd 1 *. » FALSE; 

END; 

PMOCEDUME Initial i70juatrix (VAR Mat : Matrix); 

Set matrix elements to zero 

VAR I . d : INTEGER ; 

BEGIN 

FOR l := i to •i mens iona 1ity DO 

FOR J : s I to Dimensionality DO Mat li,d] :* • ,* 

END ; 

PROCEDURE In i t i a I i7o_connoCtmatrix (VAR Mat : Connoctivity_matrixI ; 

Set connectivity-matrix elements to FALSE; used for tracing; this routine 
was not i inp 1 cinen t ed , and is incomplete 

VAR |, d : INTEGER; 


BEG 1 N 

FOR I :s 1 TO Connects_max DO 

FOR d := 1 TO Connoctsjnax DO Mat ll.j] :* FALSE; 

end;” 

PROCEDURE Message (Row : INTEGER; 

Message_string : String); 

Display a message at row given by Row. 

BEGIN 

C1 ear _1ino (Row i ; 

WR1TELN (Message_stringI ; 

END ; 

PROCEDURE Go t_inpu t (Row : INTEGER; 

Prompt : S t ring; 

VAR Return : string); 

Got input in response t« a prompt. 

BEG I N 

C1ear_lino (Row) ; 

WRITE (Prompt); 

IF (EOLN = TRUE) THEN READLN; 

READLN (Return I ; 

END ; 

FUNCTION Uppor_caso (Character : CHAR) ; CHAR; 

Convert letter to uppCr-case 

VAR 

Offset : INTEGER; 

BEGIN 

IF (ORD (Character) >s ORD i' a' ) ) AND 
(ORD (Character) <s ORD I ' z' ) I 
THEN Offset : = Case_difforencc 
ELSE Offset :s 0; 

Upper case := CHR ( ORD (Character) - Offset i; 

ENf; 

PROCEDURE Get_char (Row : INTEGER; 

Promp t : St ring; 

VAR Return : CHARI; 

Get a single character in response to a prompt. Return the upper-case 
equivalent of the input. 

MEG I N 

C1 ear_lino (Row); 

WRITE (Promp t i J 

IF (EOLN s T RUE 1 THEN READLN; 

READ (Re turn 1 ; 

Return :s Uppor_Caso (Return!; 

END; 

PROCEDURE Wait_for_return; 
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Ge t any char ac ter. 

VaR 

Dummy t CHAR ; 

BEG IN 

6e t_cha r M,'Press < RE I URN > to continue Dummy 1 ; 

E HO ; 

FUNCTION Kcc_num (Character : CHAR) : INTEGER; 

Return the file's record number cor responding to Character 

BEGIN 

ReC nuiu -= 0R0 (Character I - C h a r_s t ar t _v a 1 ue ♦ I; 

END; 

FUNCTION RoC_to Char i ReCjium : INTEGER) : CHAR; 

Return the character corresponding to a record number 

BEGIN 

ReC_to char := CHR ( Roc^num ♦ Char_start_value I I; 

END; 

PROCEDURE Storochar 1 Char_to. store ; CHAR; 

Grid_tO_store : Grid; 

Gr i d__ f i 1 e_na«*e : String); Filename of Grid_file 
Store a character grid in a file 

BEGIN 

OPEN IF1LE_NAME . :* Grid_fi1enamO, 

FIIEJ/ARIABLE :* Grid_file, 

HISTORY :* UNKNOWN, 

ACCESS_METHOD DIRECT, Random access 

RECORD!TPE : = FIXED, Each grid has the same length 

CARRIAGE CONTROL :* NONE, No special control codes 

ORGANIZATION :* SEQUENTIAL, 

DISPOSITION : = SAVE I; ' Retain the file when it is closed 

LOCATE iGrid file, RcC_iuim (Char_to_storeiI; Position file pointer 
Grid file-' : a Gr id_to_s tore; Put grid into file buffer 
PUT (Grid_fi1«I; Stiro the grid 

CLOSE (Grid fi le i ; 

E N D ; 

PROCEDURE Read _c liar (Char_to_road : CHAR; 

Grid fi 1e_n ame : String; Filoname of Grid file 
VAR Ch<ir_found : BOOLEAN; 

VAR Stored grid : Grid); 

Read a character from a grid file 

BEGIN 

Initia 1i?o_grid tStored_grid*; 

OPEN (FILENAME :• Grid fitc_name, 

F1LE_VARIABLE :* Grid^file, 

HlSTtRY ; = UNKNOWN, 

ACCE.SS_ME T«0D :• DIRECT, Random access 
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RECORD_TYPE ;s FIXED, Each grid has the same length 

CARR1AGE_C0NTR0L :* NONE, ‘ No special control codes 
ORGANIZATION SEQUENTIAL, 

DISPOSITION := SAVE l ; Retain the file when it is closed 

FIND IGrid_file, Rcc_nu» (Char_to_read)); ’ Search for character 
IF UfB IGrid_ fi 1e) 

THEN Char_found := FALSE 
ELSE 
BEGIN 

Char_found :« TRUE; 

Stored_grid : = Grid^file - ’; 

END ; 

CLOSE (Grid_filei; 

END; 

PROCEDURE Re ad_vec (Char_to_read : CHAR; 

Vec_f i l e_name : String; f i l on ame of Vcc__filc 
VAR Char_faund : BOOLEAN; 

VAR Stored_voc : Vector); 

Read a character from a grid file 

BEGIN 

Initia 1i70_voctor (S tored_vec)I 

OPEN (F1L E_NA M E Is Vec_fi 10_na me , 

F 1 L E_VARI ABLE :» Voc_filej" 

HISTORY != READONLY, 

ACCESS_METHOD : = DIRECT, Randtm access 

RECOHD_TyPE :* FIXED, Each grid has the same length 

CAKRI AGE_C0NTROL := NONE, No special control codes 
ORGANIZATION :s SEQUENTIAL, 

DISPOSITION ;» SAVE); * Retain the file when it is closed 

FIND (VoC_file, Rec_num (Char_to_read)1; 

IF UFB < V o c_ filei 

THEN Char_fOund I* FALSE 
ELSE 
BEGIN 

Char_found :* TRUE; LO 

Stored_vec :* Voc file*'; ^ 

END; 

CLOSE {Voc_filei; 

END ; 

PROCEDURE find_grid_traits (Data_grid : Grid; 

VAR Center ; Paint; 

VAR NuhiO f _gr i d_p t s : INTEGER); 

Return number Of grid points & Center of mass 

VAR 

X_C00t'd, Y_coord : INTEGER; 

Sum_of_co»rd_va1ues : Two_thingsI 

xy : INTEGER; 

LH : INTEGER; This was used to assign center to the 

average of extremes; not currently being 
i nip 1 onion t ed 

: ARRAY iLO-.HiJ OF Two_things; 


Bo x 
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BEGIN 

FOR ay := X TO ) DO SiiMi_Of_coord_valuos I AY) :s 0; Initialize sums 
Nuih of _gr i d pts :* 0: 

FOK LH := Lo !• Hi DO 
f O R AY := * TO Y DO box |LH) |*y] := 0;~ 

FOK A_c•Ord : = J TO Gridwidth D§ 

FOK T_coord := 1 to Or id height *0 

IF M)ata_grid lx coord,<_coordI = TRUE) THEN If there's a point then 
BEGIN 

NumOf_grid_pts := Num of gr id_pts + i; 

Sum_of_coord_va1ues |xj : = Sum_Of _coord__va 1 ues Ixl * X^coord; 

SumOf_COOrd_vaiuos (Y) ts 5um_©f_COOrd_va1ues |Y) ♦ Y_coord; 

FOK LH ;» Lo TO Hi DO 

begin 

IF I iio x I L H 1 | X I s 0) THEN box Uh} f X I A_COOrd; 

IF (Box [LHj | Y I * 0) THEN box UhI [ Y 1 T_COOrd; 

END; 

box |Hi | 1X J := MAX (Box!H i I I A | ,X_COOrdI ; 

Box j L o1 lxj := MIN (Box |Lol I X1 ,X_coord » ; 

box [Hil ( Y 1 :■ MAX ( Box |Hi||Y I ,T_COOrd I ; 

box iLol (Yl := MIN (BOX|Lo I 1 Y | ,Y coord I ;" 

END; 

FOK AY := >. TCI Y DO 

Center l AY ) : = ROUND (Sum_Of_COOrd values (AYJ / Num_of_grid_pts); 

This is the formula for Center Of mass Of particle systems 

Center IayI := ROUND (0.5 * (Box(Lol(XYj * Box I H i I 1 A, Y I 1 ) ; 

Take average of extremes; not currently being implemented 

END; 

PROCEDURE WidrowhofF ICorreCt_g, Actual_g, F : Vector; 

N : REAL; Const * 1/N 

V A K OeIt a_a : Matrix!; 

Error correction procedure: 

COrroC. factor Do 1 ta_a := ( (Learning const.) * (Correct^g - Actual_gl) x F 

VAK 

Difforonco_voc tor, Weighted_voCtor : Vector; 

Loariiing constant : REAL; 

BEGIN 

Loariiingconstdiit :* l/N; 

Sub t r ac t _vec tOr s <CorroCt_g, Actual_g, D i f f or encc_vcc tor ) ; 

Sc a Iar_times_veCtor iL e arning_COns t an t, D i fference_vector, Weighted_vector I ; 
Outer product (Weighted vector, F, D<jlta_a); 

END; 

FUNCTION Bool_to_int (Bool : BOOLEAN! : INTEGER; 
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Convert BOOLEAN to INTEGER value (T or 0) 

BEGIN 

IF Bool = TRUE 

THEN Bool_tO_int := 1 
ELSE Bool_to_int := 0; 

END; 

FUNCTION Circ_dist (Onedist, Radius : INTEGER) : INTEGER; 

Distance to the circle on a line parallel to the Other axis 

BEGIN 

IF (One_dist > Radius! 

THEN C i rediS t :* 0 

ELSE Circ_dist :* ROUND (StRT (Radius ** 2 - One_dist ** 21i; 

END; 

FUNCTION Rad_of_points (Goa 1_percontage : INTEGER; 

Da t a_gr id .'Grid; 

Center : Point; 

Num_o f _gr i d_.p t s : INTEGER! : INTEGER; 

The radius inside of which there are GoalpercentageX of the total number 
Of points lNum_of_gnid_pts1 in the grid (Data_grid> 

VAR 

Goal_pts, Cur_pts, Radius, A_coord, Y_dist, Y^coord : INTEGER; 
Scratch_grid : Grid; 

BEGIN 

I n i t i a 1 i /c_gr i d I Scratchgr id 1 Grid to mark what's been Chocked 
Goal_pts :* ROUND ( Goa 1 _per con t age * Nuiu_of_gr idpts / 1 0 0 i ; 

Number of points desired 
Radius 0; Radius toeing examined 

Cur^pts := 0; Number Of points inside the current radius 
WHILE (Cur_pts < Goal_pts) DO 
BEGIN 

FOK X_coord :a MAX (Con torlX 1 ~Radius,0 ) TO 

MIN (Center(A 1♦Radi us,Grid_width) *0 

BEGIN 

Y_dist :* Circ_dist ( X_coord * Center lx), Radius*; 

FOR r_COOrd :s MAX <ContOr( Y | -Y_dist, 0l TO 

MIN (Center!Y1♦ Y_dis t.Grid height ) DO 
IF Scratch_grid IX_cOOrd,Y_C 00 rd) = FALSE THEN 

If this coordinate has not been checked yet then 
BEGIN 

Cur_pts :* Cur_pts ♦ 

Boo 1 _ to__ i n t (Data_grid I X_coor d , Y_coor d I ) ; 

Scratch_§rid IX_coord,Y_coOrd ) := TRUE; Mark as checked 
END; IF Scratchgrid (X_coOrd,Y_cOOrdj * FALSE 
END; X_coord * „ 

Radius :» Radius ♦ i; 

END; While lCur_pts < Goal_pts) 

Rad_of_points := Radius; 

END; 
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FUNCTION Grid_code (Data «| rid : Grid; 

C»I, Row : INTEGER! : INTEGER; 

Return code corresponding to status of the grid cells including and 
iitwivrd i ate I y surrounding (Col.Rowl. The following table indicates the 
relation between the position of the cell relative to (Col,Row) and the 
power of two to be raised t» generate a number to add to the cumulative 
lir id ..code : 

2 6 8 

i 4 V 

0 3 6 

VAR 

X coord, <_coord. Code : INTEGER; 

BEGIN 

Code 0; 

FOR X_coord Col-i TO Col*! DO 
FOR Y _COOrd := Row- 1 TO Row* I D* 

IF ( IX_COOrd > 0i AND (X_coord < s Grid width! AND 
(V coord > 01 AND <Y_coord <= Grid height)! 

TMEN 

IF I grid(X_COOrd, floor'd) = TRUE! 

THEN Code : s Code ♦ 2 ** fY_coord-Row*1 * 3*(X_coord-Co I ♦ 1 ) I; 
Grid_code := Code; 

END ; 

FUNCTION filled (Data_grid : Grid) : Grid; 

Fill in s*»h! gaps in the grid 

VAR 

X_CO*rd, Y coord, Code : INTEGER; 

Nuw^grid : Grid; 

BEGIN 

Now_grid := Data_grid; 

FOR A_coord : = 2 TO (Grid_width-1) DO 
FOR Y_coord ’= 2 TO (Grid_height - 1 I DO 
BEGIN 

Code := Gridcode <Data_grid, X_coord, Y_coordI; 

IF I t Code * 2571 OR (Code = 130i OR (Code * 40! OR (Code * 66)1 THEN 
New_grid IX^c#Ord, Y_coord I := TRUE; 

END; 

Filled : s Now_grid; 

END; 

FUNCTION Endpt (Data_grid : Grid; 

Col, Row : INTEGER) ; BOOLEAN; 

TRUE if this is an endpoint 

VAR 

Code, Acoord, <_C»ord : INTEGER; 

BEGIN 

Code Gr»d_code (Data_grid, Col, Row); 
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IF ((Code = 171 OR (Code * 181 OR (Code * 201 OR (Code * 24! OR 

(Code * 48) OR (Code * 80! OR (Code * 144) OR (Code * 272! OR 

(Code * 22) OR (Code = 52) OR (C»do * 304) OR (Code = 400! OR 

(Code « 208! OR (Code * 88) OR (C»do * 25! §R (Code = 19 1 ) 

THEN Endpt := TRUE 
ELSE Endpt : * FALSE; 

END ; 

FUNCTION Quad <X_coord, Y_coord : INTEGER; 

Center ; Point! : INTEGER; 

Assign a quadrant number: 

2 1 
3 4 

BEGIN 

IF ( t X_coord > = Center |Xl! AND (Y_COOrd >» Center {Yj!! THEN Quad :* 1 ELSE 

IF I (X_COOrd < Center |X I > AND <Y_COOrd >* Center (Y|i! THEN Quad :» 2 ELSE 

IF I (X_coor d < Center I xll AND (t__COOrd < Center |Y|ll THEN Quad :« 3 ELSE 

IF ((X coord >= Center |x!l AND (Y_coord < Center Ivll) THEN Quad : = 4; 

END; 

FUNCTION Ends (Data_grid : Grid; 

Center : Point! : End_bits; 

Indicate existence of endpoints in each quadrant in the grid 
VAR 

X^coord, Y_coord, Zero : INTEGER; 

Bits : End_bits; 

BEGIN 

FOR Zero := 1 TO 4 DO Bits IZero] := -i; 

FOR X_coord := 2 TO (Grid_width- I ) DO 
FOR Y_coord :* 2 TO <Grid_hcight - l i DO 

IF (Endpt (Data_grid, X_coord, Y_coord) = TRUE! 

THEN Bits [ Quad ( >._COOrd , Y_coord .Center I | :* 1 ; 

MarK the quadrant if an endpoint exists in that quadrant “ 

Ends : : Kits; £s, 

END ; 

PROCEDURE Draw_char (Input__grid : Grid!; 

•raw a charactor on the screen (i.e., show screen representation of Gridl 

VAR 

Row, Co) : INTEGER; 

Scr een__coord ; Two_things; 

BEGIN 

FOR.Col :* 1 TO Grid_wid th DO 
FOR Row :* I TO Grid_hcigh t DO 

If I nput_.gr id lCol,RowJ * TRUE THEN 
BEGIN 

Sc r een__coor d |X| :s Scrunch t Co I , Gr i d_w i d th , Scr oen_w i d th ) ; 

Screcn_coord (Yj := Scrunch ( Row, Gr i d_he i gh t, Sc r oon_he i g!i t I ; 

Cursor_posn (Screen_COOrdI A),Screen_coordIYIi; 
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WH 1 TELN Iftut_charI 1 I I ; 

END; 

E NO; 

P ROC E DUNE Find_atart ; 

Used for tracing; this routine was not imp1 omen ted, and is incomplete 


Directi*n; 

T w*_ t hings; 

MOUl.EAN ; 

BOOLEAN; 

BEGIN 

Way : = U p; 

Start U ) ;* • ; 

Start | r I : = Grid height; 

Done := FALSE; 

Start_found := FALSE; 

WHILE (Done * FALSE! 01 
MEG IN 

IF i 1) a t a_gr i d l S t ar 11 X I , S t ar t l t ) I =. TRUE! THEN 
BEG IN 

Starts found : = TRUE; 

Dono ;* true; 

END 

Ei SE IF (Way * Up) THEN 
BEGIN 

IF (Startlxl = Grid width i THEN 
BEGIN 

IF (Startly I 5#) Then Done ;= TRUE 
ELSE 
BEGIN 

Star t 1 r I : = S tar 11t 1 - i ; 

Way = Down; 

END ; 

END IF Start|x| = Grid_width 
ELSE IF IStartlY! * Grid height i THEN 
BEGIN 

Start! >. \ :* Startlxl * » ; 

Way = Down; 

END If Startlfl » Gridhoight 

ELSE 
BEG I N 

Startlxl : = S tar t l X | * l ; 

S tar t| Y | r = St ar t|Y] * 1 ; 

END ; 

END ' IF Way = Up 
ELSE IF (Star t|Y I =01 THEN 
BEG 1 N 

IF iSt ar t|X | * Grid_width) THEN Done -= TRUE 

ELSE 
BEG 1 N 

S t a r t l A | : * S t a r t I A | ♦ I ; 

Way x Up; 


VAR 
Way 
S t ar t 

Done 

Startfaund 
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END ; 

END ‘ If Star t | Y 1 = 0 
ELSE If (Startlxl = 01 THEN 
BEGIN 

St ar t | r I ; = star t | Y | - 1 ; 

Way = Up; 

END If Startlxl * 0 
ELSE 
BEGIN 

Star t | X ) : = Star tI X j - 1 ; 

S tar t I Y1 : a St ar t1Y ] - i ; 

END ; 

END; While Done = FALSE 
END ; ' 

PROCEDURE Find_start tData_grid ; Grid; 

VAR Star t_found : BOOLEAN; 

VAR S tar t : Po in t ) ; 

Used for tracing; this routine was not imp I time n ted , and is incomplete 
VAR 

X_coord, Y_coord : INTEGER; 

BEGIN 

Start Found : = FALSE; 

Y c#ord : = 0 ; 

WHILE (( »_coord <s Grid_hoight) AND (Star t^f»uod ■ FALSE 1) DO 
W E G 1 N 

Y COOrd := Y_COOrd ♦ i; 

X_COOrd := 1; 

WHILE ((X_coord < = Grid_widthl AND (Start found « FALSE!) DO 
IF <Data_gridIX_coord, Y_c*ordI a TRUE I 
THEN Start_found := TRUE 

ELSE X_coord := X_coord ♦ 1 ; ‘ 

END; 

Start |x) :s X_c#*rd ; 

Start If] := Y_coOrd; 

END ; “ 

FUNCTION Coord (Xr. 01d_coord. Way, Factor : INTEGER! : INTEGER; 

Used for tracing; this routine was not implemented, and is incomplete 

VAR 

Theta : REAL; 

Delta : INTEGER; 

BEGIN 

Theta :* Pi / 2 * Way; Angle of the direction 
CASE XY OF 

1 : Delta := ROUND (COS (Theta! I; 

2 : Oelta := ROUND (SIN (Theta!!; 

END; Case XY 

Coord := 0 1 d_COO r d ■* Factor * Delta; 

END;” 
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PROCEDURE Trace 

(D a t a_grid 

: Grid; 




D r aw 

BOOLEAN; 




Num_of_grid pts 

INTEGER; 



VAR 

Verticals 

I N TEGER; 



VAR 

HOr i 7011 t a 1 s 

INTEGER; 



VAR 

0 i agona 1 s 

INTEGER; 



VAR 

Connoct s 

Connectivity matrix; 



VAR 

Njiii of marked 

INTEGER); 




Used for tracing; this routine was not implemented, and is incomplete 


VAR 

Way, 01d_way, Way_temp 

01d point, Stdr t 
X_coord, Y_COOrd, Count 
X_COOrd_t emp, Y_coord_temp 
M arKed 
Star t_fOund 

BEGIN 

Verticals : = 0; 

HOr i /on tail. : - 0 ; 

Diagon a I s : = 0 ; 

Hum ofjuarHed := 0; 

Ini t i a I i 7c_connec t jiia tr i x (Connects); 

Find_start (Data_grid, Start_found, Start); 

IF (Start found = TRUE) THEN 
BEGIN 

x_coord := S t ar t I > 1 ; 

Y _coor d : = Start .1 Y ] ; 

Initia Ii7o_grid iMarked); 

Count :s 0; Number of consecutive times a false element was detected 
Way := 0; Initial direction = Right 

WHILE iNumof marked < Num_0f_grid_ptsI DO 
BEGIN 

XcoOrd := Coord (X, X_C00rd, Way, 1); 

Ycoord :* Coord (Y, Y_coord, Way, 1); 

IF (Data_grid IX_coord,Y_coord1 = TRUE) 

THEN 

BEGIN 

Old_point Ix] := x_coord; 

Old_point (Y] := Y_coord; 

Oldway : = Way; 

IF (Marked lA_coord, Y_coord ) s FALSE) THEN 
BEGIN 

IF (Draw = TRUE) THEN 
BEGIN 

Cursor_posn (Scrunch (X_coord, Grid_width, 

Screen sid th) , 

Scrunch IY_coord, Grid_height, 

Scr een_he i gh t ) ) ; 

WRI TELN (Out _c h a rll)); 

END; 


Direction; 0 = right; 1 = up; 

2 = 1e f t; 3 = down 

: Point; 

: INTEGER; 

: INTEGER; 

: Grid; 

: BOOLEAN; 
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Marked IX_coord , Y_coordJ := TRUE; 

Num_of_marked := Num_of jnarked + 1 ; 

END ; 

Way := Direc (Way ♦ 1); Turn left 
Count : b 0 ; 

END 

ELSE 

BEGIN 

Count :* Count ♦ 1 ; 

IF (Count <> 3) THEN Way := Direc (Way - 1); 

IF ( (Count < 3 ) 

THEN Way :* Direc (Way - 1) Turn right 
ELSE 

IF (Count * 4) THEN 
BEGIN 

Way : = Way - 1; 

X_coord := Coord (X, X_coord, Way_temp, 2); 

Y _coord := Coord (Y, Y_coord, Way_temp, 2); 

Way_temp : = Direc (Way - 2); 

X_coord_temp : = Coord (X, X_coord, Way_temp, 2); 

Y_coord_temp :* Coord (Y, Y_coord, Way_temp, 2); 

Way_temp : = Direc (Way_temp ♦ 1>; 

X_coord_temp :* Coord (X, X_coord_temp, Way_temp, 2); 

Y_coord_temp : = Coord (Y, Y_coord temp, Way_temp, 2); 

IF (Data_gridfX_coord_temp,Y_coord_tempJ = TRUE) 

THEN 

BEGIN 

X_coord :* Coord (X, X_coord_tomp, 

Direc <Way_temp+2), 1); 

Y_coord : = Coord (Y, Y_coord_temp, 

Direc (Way_temp*2I, 1 ); 

Way := Way_temp; 

END 

ELSE 

BEGIN 

X_coo r d := 01d_point Ixl; CO 

Y coord := Old point t Y j ; tjl 

Way := Direc (Old _w a y + 2); 

END ; 

END; If Count = 4 

END; If D a t a_grid 1X_coord.Y_coord1 = FALSE 
END; While 

END; If (Star t^found * TRUE) 

END;' 

PROCEDURE Draw_ trace (Data_file : String); 

Used for tracing; this routine was not implemented, and is incomplete 


Ch ar _ tO_ trace 
S tor ed grid 
Char_fojnd 


CHAR ; 
Grid; 
BOOLEAN; 
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Verticals, Horizontals : INTEGER; 

Diagonals : INTEGER; 

Connects ; Connectivity matrix; 

Hum_uf_marhod ; INTEGER; 

Center .'Point; 

Numof_grid pts : INTEGER; 

BEGIN 

REPEAT 

Clear _scroon; 

REPEAT 

G e t _c ha r ( 1 ,' Enter character to trace (0 = o xit I : Char^to_tracoi; 

UNTIL iC h a r _ to_ t r aC o = '0‘1 OR 

(0R0 lCh#r_tO_tracoi >s ORD f'4' II OR 
I OKI) (Chdr_t 0 _traccl < = ORD < * Z * I > ; 

IF Char to_traCe <> 'O' THEN 
bEGIN~ 

Initialise., grid i S toredgr id); 

Road Char (C har_ to_t r ace, Data File, Ch ar_found, S tor ed_gridi; 

IF < Char_found = TRUE I THEN 
BEG I N 

F i nd_gr id_t r a i ts i S tor ed_gr i d , Center, Nuiii_of_gr id_pts « ; 
Trace IStorcd_grid, TRUE, Num_of_grid_pts, Verticals, 
Horizontals, Diagonals, Connects, Num_ o f _iuar hed I ; 
Cur£Or_pOsn < t, 2 I ; 

WRITELN ('Num_of_marKed s Num_of_marKed:1, ' of 

Nuni_of _gr i d_p t s : i , ' .’1; 

Wa it_for_return; 

END; ‘ If Charfound = TRUE 

END ; 

UN11L Char _t<>_t race = 'O'; 

END ; ‘ 

FUNCTION Versegs (Data_grid I Grid; 

Center : Point; 

Orid_radiut : INIEGER; 

Fact*r ; REAL) : Two things; 

Number of vertical segments to the left and right of center; input is 
analyzed in series of bars 

VAR 

bar, Bar_count, bar_width , LH, bar_ma* : INTF. GER; 

Min seg_lon. Side, X_coord, T_coord, Gap ; INTEGER; 

Cogs, Hicoord : Twothings; 

This_row, H#w _COuii t I BOOLEAN; 

BEGIN 

Bar _w id th : = 2 ; 

Min_sog_lon : = ROUND (factor * Grid_radiusIJ 

Min_sog_Ion : = 6; 

Miniinuiu vertical segment length 
FOR IH :* Lo TO Hi DO Segs {L H1 ;* 0; 

Bar jiiax ;= MIN <Grid_width, Con t or ( A 1 *G r i d_r ad i u s J ; 

Max. A-value to Chech 

Bar Is Max <Con terjX} 'Qr id_radius, li; Min. x-value to Chech 
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Hi_coord Iy| I* MIN (Center|Y|♦Grid_radius , Grid_height I ; 

Max. Y -value to Chech 

WHILE (bar o barjita* I DO 
BEGIN 

Barcount : = 0; ’ Number of data points in the bar 

Hi_coord |X I Is MIN IBar_max, Bar*Bar^width-1 I ; Max. X-valuo in bar 
Y_coord : = MAX i Contar1y!-Grid_radius, II; Min. V-value to Chech 
Gap := 0; Indication of gaps in the input 

WHllE ((Y coord <=■ Hi_coord ( Y 1 I AND (Bar count < M i n_s og_ 1 on I I DO 
BEGIN 

Xcoord Is Bar; 

This_row :s TRUE; Look at the Current row in this bar 
Row_count 1= FALSE; No points in this row for this bar 

WHILE IThis_row = TRUE! 00 
BEGIN 

IF (lata_grid I X__coord , Y_COord ] * TRUE) 

THEN 

BEGIN 

Row_count := TRUE; A point was found in the bar-row 
Thts_row ’.= FALSE; Stop loohing at th i s row 
END 
ELSE 

IF I X_coord < Hi_coord ( >. J I 
THEN A_Coord := X_coord ♦ 1 

ELSE This__row is FALSE; Nothing found in this bar-row 

END; 

IF (Howcount s TRUE) 

THEN 

BEGIN 

Bar_count 1 = Bar_count ♦ 1; Increment number of points 

found 

Gap I = 0 ; . 

END 
ELSE 
BEG 1 N 

Gap :* Gap 4 1 ; 

IF (Gap > Oi THEN 
BEG I N 

Bar_count : = 0; A gap was found, so ignore points found 
pr- cv i ou s I y 
Gap := 0; Reset gap marher 
END ; 

END; IF Row^count = FALSE 

Y_coord :* Y_coord *■ 1 ; Go to the next row 
END; While ( I Y_coord <* Hi coord C Y ] I and 
(Bar_courit < M in_seg_ 1 en I 1 

IF i Bar_count < M in__sog_l on ) 

THEN Bar :» Bar 4 I Go to the next bar; i.o., increment X-valuo by 
only I 
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BEGIN 

If (*ar <= Center l x] i 

THEN Side f Declare bar location relative to center 

ELSE Side : = 2; 

Segs I Side I : = Segs {Sidel ♦ i; Increment number of segs found 
bar :* bar ■* Bar_width; Go to the next bar; i.o., sKip over 
columns already looKed at 

END: 

END; While Bar Bar__tnax 
Ver_sogs :* Segs; 

END; 

FUNCTION Hor_segs (Oatagrid Grid; 

Center : Point; 

Grid__radius : INTEGER; 

Factor : REAL) : Two_things; 

Number of horizontal segments above and below Center 

VAR 

Bar, Bar_count, bar_width, LH, bar juax ; INTEGER; 

Min w £og_1 on, Side, X_coord. ¥_coord, Gap : INTEGER; 

Segs, Hi_coord : Two_things; 

This_col, Col_count : B10LEAN; 

BEG I N 

Bar width :* 2; 

Min seg le.n ROUND (Factor * Grid_radius 1 J 
M i n _sey_ 1 uii : = 7 ; 

Minimum horizontal segment length 
FOR LH := Lo TO Hi DO Segs IL HI ts 0; 

b ar jna* := M1N <Grid_height, Center!Y1+Grid_r adius ) ; Max. Y-valuo to 

cheCK 

Bar != MAX. (Con t or IY j-Gr id r ad i us, l); Min. Y-valuO to check 

Hi_coor'd ( X | : s MlN ( Ceil t e r | X I ♦ Gr i d_r ad i u s , Grid width); 

WHILE (Bar < s. Mar_maxl DS 
BEGIN 

Bar count 0; Number of data points in the bar 
Hi coord I f I := MIN liar_max, Bar + Bar_width- 1 ); 

X_coord :* MAX I Conter I X] -Grid_radius, It; 

Gap :» 0; 

WHILE MX coord <* Hi_COOrd | X J ) AND <Bar__count < Min_seg lent I 00 
BEGIN 

Y coord := Bar; 

This_c°l :a TRUE; Continue to look at the Current column 
Col_COUnt FALSE; Nothing found yet for this column 

WHILE <This.„COl a TRUE) Ufl 
BEGIN 

IF M)ata_grid I >._C°ord , t _coord J s TRUE) 

THEN 

BEGIN 

C« 1 count : s. TRUE; 


File: PCR PAS A I 


Last written on 02/19/86 at l9:0i:40 


Page 22 


Th i s_co I ;= FALSE; 

END 

ELSE 

IF ( Y__COOrd < H i _COOrd lYJi 
THEN Y^COOrd := ¥_COOrd ♦ 1 

ELSE Thiscol !s FALSE; 

END ; 

IF I0ol_count a TRUE! 

THEN 

BEGIN 

Bar_Coui>t := bar^count ♦ i; Increment number of points 

found in the bar-col 

Gap := 0; Reset gap marker 
END 
ELSE 
BEGIN 

Gap :» Gap ♦ t; 

IF I Gap > It THEN 
BEGIN 

Bar_count ;s 0; There’s a gap, so ignore points found 
proviou s1y 
Gap t* 0; Reset gap marker 
EN» ; 

END; IF CoIcount 

X_coord := X^COOrd ♦ 1; Go to the next column 
ENi: While HX_COOrd <• Hi_COOrd (xl) and 

t bar_count < Min_scg^1 on 11 


CO 

ON 


FUNCTION Y in torcopt <Y_coord : INTEGER; 

Slope : REAL; 

X_coord : INTEGER) ; INTEGER; 
Calculate the Y- intercept 

BEGIN 

l_intcrCcpt := ROUNi II^coord - Slope * X_coordt; 
END; 


IF ( bar_count < Min__sog_ 1 on ) 

THEN Bar ; * Bar ♦ 1 Go to the next bar; i.o., increment row by 

only 1 

ELSE 
BEG I N 

IF lBar >• Center [ Y ) t 

THEN Side :* 1 Declare location as above or below center 

ELSE Side :* 2; 

Segs iSideJ : = Segs ISidol * i; Increment number of segs found 
Bar := Bar t Bar__width; Go to the next bar; i.o., skip over 
rows already examined 

END ; 

END; ‘ While Bar <* Barj.aX 
Hor_segs :* Segs; 

END; 
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FUNCTION Diagtn.jls I Data_grid : Grid; 

Center ! P»in t; 

Grid_radius : INTEGER; 

factor : REAL1 : Two things; 

Number of left- and right-slanting diagonals 

VAR 

tiar. Coord, l<n-_c*unt 
M»n_sog_len, Qnedist 
xy, Bar_width, Slopes 
Scgs, f_int 
Slope 

This _COI > Co I_c#unt 
V _O Id, T_»’cpS 

BEGIN 

8 ar w i d t h : = 2 ; 

Min_seg len t = RllUNO IFaCtor * Gr 1 d^r ad i us i ; 

Min. diagonal segment length 
Min_seg_!on ; - 7; 

Min. diagonal Segiiient length 

FOR X» ;* 1 10 2 00 Scgs Ixrl :• 0: 

FOR *. Y ;= 1 TO 2 DO Left and right diagonals 

FOR Slopes : = 1 TO 2 00 Chech 2 slopes for each type »f diagonal 
BEGIN 

CASE Slopes OF 

1 ; $l*po : - a. Y - 1-5; Slope = + /- 0.5 

2 : Slope ;= 2 * Af - 3; Slope s +/- i.O 

END; Case Slopes 

CASE AY OF Set r-intercepts 

1 : 

BEGIN 

Y int [Lot : = t_intorcept il, Slope, 11; 

lint |Hi| := Y intercept 1Grid_height, Slope, Grid_width); 

END; 

2 ; 

BEGIN 

Y_int !LOI :* Y_intercopt H, Slope, Grid_width); 
t int {Hi1 ;s Y _in ter cep t <Grid_height, Slope, li; 

enoT 

END; Case XY 

Bar : a Tint ILO1 J 

WHILE (Bar < = Y_int (Hijl DO 
BEGIN 

bdi'_c»unt := 0; Number of data points in the bar 
End_bar := MIN (Y_intlHi|, Bar♦b a r _wid t h- 1 }; 

Gap *- s 0 ; 
y _ r p s := 0; 
r^old := 0 ; 
x__coord : = 1 ; 

WHILE < •'X__e*Ord <= Grid_width» AND I Bar_cOunt < M i n_seg_ 1 «n I i DU 


, End_bar, Hi_y : INTEGER; 

, X_COOrd, Y_coord : INTEGER; 

, Gap ~ : INTEGER; 

lwo_things: 
: REal ; 

: BOOLEAN; 

: integer; 
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BEGIN 

This_col := TRUE; Look at the current column 
Colcount := FALSE; No points found yet 
Y_COOrd :* TRUNC <Sl0pe + X_coord ♦ Bari; 

Hi_y I* TRUNC < Slope * X_coord * End_bar ); 

WHILE 1 Th is_CO1 a TRUE) DO 
BEGIN 

IF I < Y_coor d > 0 i AND < Y_COOr d < * Grid heigh t > ) THEN 
If (Data grid [X_C 00 rd,Y_cODrd| s 1 RUE l THEN 
BEGIN 

IF IT_COOrd s Y _01dI 

THEN Y__reps = Y_rops * 1 We looked at this 

i -va 1ue bef*re 

ELSE 

BEGIN 

Y_old := Y_coord; 

Y_rops : - i ; 

end; 

IF !Y_rops < 31 THEN ‘ Point is valid Only if wo 
have not looked at this 
Y-value more than twice 

BEG 1 N 

Col_c»unt :* TRUE; 

This_co1 :- FALSE; 

END ; 

END; If Data_grid (X_COOrd,t COOrd 1 s TRUE 
IF (T his_CO I a TRUE) THEN 
IF 1 Y Coord < Hi_y1 

THEN Y_coord : = Ycoord ♦ 1 " Check the next Y-value 
ELSE This _co1 FALSE; 

END; While This_COl = TRUE 

IF (Col_count > TRUE I 
THEN 
BEGIN 

bar_count := Bar_count ♦ 1; Increment the number of 

points found 

Gap : * 0; Reset gap marker 
END 
ELSE 
BEGIN 

Gap :- Gap ♦ i; 

IF I Gap > 0 I THEN 
BEGIN 

Bar_count ! = 0; There's a gap, so ignore points 
a 1 ready found 

Gap := 0; Reset gap marker 
END ; 

END ; 

X_coord := X_coord ♦ 1‘, Go to the next X-value 
END; While X_C00rd <= Gridwidth AND Bar^count < Hin_sog_lon 

IF IBar’COunt < Min_seg_lenl 

THEN Bar :s Bar ♦ 1 Go to the next bar 
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£ L SE 

BEGIN 

Scgs 1 Xif } := Sogs [XYj + 1 ; Increment number of diags 

found 

bar := bar * Bar_width; SR ip to tho next bar 
END ; 

END; While bar <= Y_int jHiJ 
ENS; For Slopes : = J to 2, For xy :» \ to 2 
Diagonals := Sogs; 

END; 

FUNCTION Complexity_factor (Complexity : INTEGER 1 : REAL; 

This was used to discriminate between segment criteria of mode 1 data and 
segment criteria of test data; no longer in use 

BEGIN 

CASE Complexity OF 

1 : Comp 1oxity_ FaCtor 0.7; 

2 ; Comp 1 exity_factor_:* 0.5: 

END; Case Complexity 

END; 

PROCEDURE Encode line segments (Data grid :Grid; 

Center ; Poin t ; 

Gridradius : INTEGER; 

VAR Vertica1_segs : Two_thingsI 

VAR Horizontal_segs : Two_things; 

VAR Diagona1_segs : Two_things; 

Complexity ; INTEGER!; 

Examine grid for vertical, horizontal, and diagonal segments 

VAR 

Factor : real; 

BEGIN 

Factor :* Complexity_fdCtOr (Complexity!; 

Ver t i C a 1 _segs Vor_sc*|S (Data_grid, Center, Grid_radius, factor); 

HorizOnta 1_segs :« Mor_sogs <Data_grid, Center, Grid_radius, Factor); 

0iagona1_sogs :* Diagonals <Data_grid, Center, Grid_radius, Factor I ; 
END; 

PROCEDURE Print_1ino^segs (0 ata_ fi 1e_1 , Data_file_2 : String]; 

Output information about segments in model and test data 


VAR 

Char_tO_to$t, Charmatch 
Char_num, Num_of_pts 
Char_grid 

TestveC, Scratch_vec 

Center 

Cos 

Mu 1t i p1cmatch, Char_found 
Af, Grid_radius, Fileuum 
Vertica 1_scgs, Horizontal_segs 
Diagon al_sogs 


CHAR ; 
INTEGER; 
Grid; 

Vector ; 
Point; 

REAL ; 
BOOLEAN ; 
INTEGER I 

T wO_ t hings; 
T wO_ t hings; 
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F i 1 cjiaiiiO t ARRAY (J..2| OF Stri ng ; 

BEGIN 

WRITELN ( Files . Data_file_1, and Data_file_2, '“.'I; 

FiIe^name Ml ■- Da ta_fi1o_1; 

File_name 121 :* Data_file_2; 

FOR Char_nuin I TO N cliars DO 

BEGIN 

Char_to test :* Rcc_to_char ICharjiuml; 

FOR Filenum :* 1 TQ 2 SB Model and test data files 
BEGIN 

Read_Char (Char to_test, Fi1ejiame(Fi1enum], Char_found, Char_gridl; 

IF IChar_found = TRUE) 

THEN 

BEGIN 

Char_grid := Filled (Char_grid); 

F i nd_gr i d_ t r a i t s lChar_grid, Center, Nuin_of_pls J ; 

Grid_radius : = Rad_of_points I Percent_throSh, Char_grid, 

Center, Num of_ptsl; 

£ncodo_1i rie_segments (Char_grid, Center, Grid_radius, 

Vertica)_segs, HorizOnta 1_sogs, 0iagonaI_segs, Filenum); 

CASE Fi1enum OF 

1 : WRITE Char totes t, 

2 : WRITE < ‘ ' f • 

END; Case Filenum 

FBR XY :: I Tl 2 DO WRITE (' Vertical _se<|sIXY ] : 1 ) ; 

FOR XY :* 1 TO 2 DO WRITE (' H#rizonta 1_segs(Xt):11; 

FOR XY ;* 1 TO 2 DO WRITE 1‘ 0iagona1_segsI XY|;1); 

WRITELN I' Grid radius - ’, Grid radius! I I ; 

END If Character was found 
ELSE WRITELN f* *' , Char_to_tost, ' " not found.’!; 

END; Fi1enum 
WRITELN; 

END; Char_num 

END ; 

PROCEDURE Print_endpoints IOata_fi1e_. 1, Data_file_2 : String); CO 

Output information about endpoints in m#de) and tost data sots * -vj 

VAR 

Char_to_test, Char match 
Char jium, Num_of_pts 
Char_grid 

Tost vec, Sc r a t c h_vec 
C on tor 
Cos 

Mu 1tip1e_match, Char_found 
XY, Grid_r adius, Filenum 
Quad : INTEGER;' 

Vertica1_segs, HorizOnta 1_segs : Two_things; 

Diagpna1_sogs : Two_things; 

File name ; ARRAY I 1 . .2 } OF String; 

bits ; End_bits; 


CHAR ; 
INTEGER ; 
Grid; 

Vector; 
Point; 
REAL ; 
BOOLEAN ; 
INTEGER; 


BEGIN 
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WR1TELN ( Files , 0 a t a _fi Io_l, and Data_filu_2, Endpts:'); 

Fi 1e_namo |l] : - da t a_fi 1e_lJ 

Fi lo namc [2 I : = Data_fi1e„2; 

FOP Char__nun» 1 TO N_chars 00 
BEGIN 

Char_to_tost : = Rec_tO_Char (Char_numl; 

FOR Filonum ts 1 10 2 10 Model and test data sets 

BEGIN 

Read char (Char_to_tost, FiIo_namoIFi 1enuniJ, Char_found, Char_gridi; 
IF (Char found s TRUE' 

THEN 

BEGIN 

Char grid :s Filled (Char grid!; 

F ind_gr id_trai ts (Char_grid, Center, N uiii_ 0 f _ p t s i ; 

Gridradius t* Radof_pOints (Per ecut_thresh, Char_grid, 
Center, Nuni of _p t s 1 ; 

Encode_1ino_segments <Char_grid, Center, Grid_radius, 

Vcr t i c a 1 _ segs , Hor i 7011 1 a l_segs , Di agona l_scgs , Filonumi; 
CASE Fi1enum 0F 

1 : WRITE C' -’ , Char _ to_ te s t, ’ “ : ' I ; 

2 : WRITE <' ’ I; 

END; Case Fi lonum 

Bits := Ends (Char grid, Center!; 

FOR XY := 1 TO 4 DO WRITE (' BitslXY|:2i; 

WRI TEEN ; 

END if character was found 
ELSE WRiTEL N Char_to_tes t, not found ' J; 

END; F i l enum 
WR I TELN; 

END; Char_nun» 

END; 

PROCEDURE Encode slice (datagrid 
Center 

Nuiii O f _gr i d_p t s 
Theta 

Grid_radius 
R_v alucs 

R i ng_s 1 ice_wid th 
VAR Slice 

Encode the slic^: Of input 
VAR 

Ring, Radius, R, X Y 
Ang1es 
Ang le 

Check jiiin , ChecK_ii»a.i 
ChOCK_x, Check _y 
R S_cOr nor 
Di s t__from_cLi- 
Set Pits 
Bi ts 

X_COOrd, Y COOrd 

PROCEDURE Encoders!icc bits (Bits : Slico_bits; 


INTEGER; 

ARRAY I 1 . .2} OF REAL; The 2 bounding angles 

TwO_things; RS grid boundaries 

INTEGER; 

RSliCc; Corners of the ring-slice (RS) 

REAL; distance from center to grid point 
INTEGER; 

Slice bits; 

INTEGER; 


Point; 

INTEGER; 

RE AL ; 
INTEGER; 

Ring_r ad i i ; 
REAL*, 

Slice code) ; 
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VAR Code : Slicc_codet; 

VAR 

10, Sog, Se t_bit s : INTEGER; 

BEGIN 

FOR Sot_bits :* I TO 2 * N_rings DO Code lSet_bitsJ := -i; 

Initialize Slicc_code: change 0 to -1 everywhere 

FOR 10 := l to 2 DO Code for mid-range 4 outermost 1 's 

Sot Slico_COde: for innermost 1, set bits before and equal to the 
position to i. For example, 00100 becomes Ml 00. Do the same for 
outermost i. Concatenate bits. Example: OOlOl becomes lllOO + Mill = 
lllOOllJM. 

BEGIN 

Sog t - 2; Mid-range 

WHILE (Seg < Nrings-1 I AN0 (Bits 1Sog I * 0) DO Seg : = Seg ♦ l; 

Seg = Ring-slice number of the innermost l, excluding the 
outermost ring-slice 
IF Bits ISogl = I THEN 

F ON Sc t_to its := t TO Sog 00 Code ISotJjitsI := i; 

Seg N rings', Outermost 

WHILE (Seg > 31 AN0 (Bits ISogI * 01 DO Sog := Seg - i; 

Seg * Ring-slice number of the outermost 1 , excluding the 
innermost ring-slice 
IF Bits ISog] * 1 THEN 

FOR Set_bits := Nrings ♦ 1 TO N_rings ♦ Seg DO 
Code ISet__bitsl := i; 

END ; 

END ; 

BEGIN 

Ang le 111 ! = Theta; 

Angle 12] :s Theta ♦ D_thota; Bounding angles of the slice to look at 

FUR Sotbits := 1 TO Nrings 00 Bits lSet_bitsi : = 0; Initialize 


FOR Ring l to Nrings 00 
BEGIN 

FOR Angles •- I to 2 dQ Find RS-COrner Offsets from center 
FOR Radius :« l to 2 DO 
BEGIN 

R ;= Ring ♦ Radius - 2; 

RS_COrin;r (Angles] iRadiusl (Xl ! = 

ROUND (Revalues |R| * COS I Angle lAnglesi ilj 
RS_COrner [Angles] (Radius) If] : = 

R8UND IR_values |R] * SIN ( Angle {Angles! M; 

END; 

FOR XY :* X to l Ofl Find RS grid boundaries 
BEGIN 

Chock__min ( X ¥ ] : s MIN ( RS_Corner I 1 ] III I x Y ] , 
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RS_COrnor | l ) I 2 ] I X Y ] , 

R S_COrnor |2| 111 I X Y 1 , 

RS_corner I 2 I 12) lA Y I > ; 

ChocK jnax I X Y 1 MAX IRS_corncr 111 [ 1 ] (XY|, 

RS_cornor 111 (2| I X Y 1 , 

RS_corner (21 111 IXYI, 

RS^comor [21 ( 2 I I X Y 1 ) ; 

END; 

FOR CheCK_x := ChccKjnin|X1 TO ChocK_ma kI X 1 DO Check each grid point 

FOR Check_y := ChocK_min|Y1 TO ChocK_max|Y] DO 

BEGIN 

D i s t_f roinc t r := SORT ( Check_x ♦♦ 2 ♦ Check_y *-*2 ); 
xcoord := Center |xj ♦ ChocK_x; 

Y_coord := Center [YI ♦ Check_y; 

IF ( D i s t_f r on»_c t r >= R_values lRing-l|l 
AND IDist_frOm_ctr <= Rvalues [Ring]) 

AND (X_coord * = 0) AND ( \_coorci <= Grid_width) 

AND IY_coord >= 0) AND IY_coord <= Grid height) THEN 
Grid point being checked is in the ring-slice 
IF Data grid |X_coord,Y_coord) = TRUE THEN 
There's an input point in the ring-slice 
Bits (Ringl := 1; 

END; Check each grid point in the ring-slice 
END; Check each ring 
Encode s! ice bits (Bits,S 1 ice ) ; 

END; 

FUNCTION Encocfe^sog bits < Segs : INTEGER) : Seg bits; 

0 becomes I T, - 1 , - t | 

1 becomes [ 1 , - I , - 1 ] 

2 becomes ( 1, 1 , - 1 I 

3 becomes I i, 1 , 1 1 

VAR 

Bit : IN TEGER ; 

Bits : Sog bits; 

BEGIN 

FOR Bit := i TO 3 DO Bits iBitl := -i; 

IF (Segs > 0) THEN Bits 111 :* 1; 

IF < Segs > 1 ) THEN Bits l2 I 1 ; 

IF < Segs > 2) THEN Bits 131 : c l; 

Encodesog bits := Bits; 

END; 

PROCEDURE 


E ncode 
VAR 

Base, Bits, More • INTEGER; 


Encodo_input (Data_grid Grid; 

Cen ter : Point ; 

Num_o f_grid_pts ; INTEGER; 

VAR Vec : Vector; 

Complexity INTEGER); 

the grid Ii.o., produce a vector) 
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Slice : IN TEGER; 

Theta : REAL; 

Code : Slice_code; 

Grid_radius : INTEGER; 

R_values : Ringradii; 

Ring siico_width : REAL; 

Ring : INTEGER; 

Vor ticdl_sogs : Two things; 

Hor i 70n t a I _segs : Two_t)iiiigs; 

Diagona1_segs : Two_things; 

XY, Quad : INTEGER; 

Sogmentbits : Sog_bits; 

Endpoint bits : End_bfts; 

BEG I N 

B a s e : = 0 ; 

Initiali7e_vector IVecI; 

Grid_radius := Rad_of_points (Percent_thresh, Data_grid, Center, 

Num_of_grid_pts ) ; 

R_va lues 10 1 := 0; 

Ring siice_width := Grid_radius / N_rings; 

FOR Ri ixg := 1 TO N^rings DO R_values [Ring] := Ring * Ring_s1ice_width ; 

Set ring r adii 

FOR Slice : = I TO Nslices DO 
BEGIN 

Theta D_theta * (Slice - 1); 

Encodo_sI ice (Data_grid, Center, Num_of_grid_pts, Theta, Grid_radius, 
Rvalues, Ring_s1ice_width, Code); 

FOR Bits := 1 TO 2*N_rings DO Vec [Base'Bitsl := Code (Bite); 

Base := Base ♦ 2*N_rings; 

END ; 

Encode!ine_segments (Data_grid, Center, Gridradius, Verticalsegs, 
Hori70ntal_segs, Diagon a 1_segs, Complexity); 

Endpoint_bits := Ends (Data_grid, Center); LO 

CO 

FOR XY := 1 TO 2 DO 
BEGIN 

Sogiiion t_b i t s := Encode_seg_b i t s ( Ver t i ca 1 _segs |XYl); 

FOR Bits := 1 TO 3 DO Vec (Basc+Bits] := Sogment_bits (Bitsl; 

Base := Base ♦ 3; 

END ; 

FOR XY := 1 TO 2 DO 
BEGIN 

Sogmen tb i t s : = E ncode_seg_b i t s (Hori?ontal_segs |XY)1; 

FOR Bits := i TO 3 DO Vec IBasc+Bits) := Segmentbits iBitsl; 

Base := Base ♦ 3; 

END; 

FOR XY := 1 TO 2 DO 
BEGIN 

IF (Diagon a 1_segs I X V J > 0) 

T HE N Vec [Base* I I : = 1 

ELSE Vec lBase * i 1 : = - 1 ; 
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id bo .'= Base ♦ i ; 

t n o: 

f OK bits :- l TO 4 DO 
b E Ci I N 

FOR Mono : = I TO 3 00 Voc [baso*Morel ~ Endpo i n t b i t s (Bits!; 
id&c := base * 3; 

END ; 

WHILE iidso < DimeosionaIity1 DO 
b t G 1 N 

WKITELN ( Note: bASE < D I ME NS 10 N A l I T V ' 1 
Voc |idBo* i | t = - I : 
b a & o : = base ■* i ; 

£ N u ; 

END ; 

PROCEDURE S tOro_voc I C h a r _ t OS toco : CHAR; 

V uc_ to_store : Vector; 

Vue f 1 1 on ai»o : String*; F i Icnamc VeC_filo 
Store a vectir in a vector fiTo 

btlGiN 

OPEN ( F HE NAME := Vuc_.f i 1 cjiaiml , 

F ILE ~¥4RI AbLE :s Vec~file, 

HISTORY := UNKNOWN, 

ACCE$S_ METHOD : = I1RECT, Random access 

RECORD TYPE :s FI'.ED, Each vector has the same length 

CaRRiaG£_C0n 1ROL ;s NONE, No special control codes 
ORGANIZATION , : * SEQUENTIAL. 

DISPOSE) ION :« SAVE!; Retain the file when it is closed 

LOCATE (Voc._filo, RcC_num I Char_. to_s tor o 1 1 I Position file pointer 

Voc_.fi lo~' :* Voc to_sto»*cJ Pot vector into file buffer 
PUT1 VcC file*; ■ Store the vector 
CLOSE tV ec... f i l o i ; 

E N D ; 

PROCEDURE ticn_vect»r« (Data_filc I String; Grid file 

StOro_file ; String!; Vector file 
Generate set of encoded vectors from data set; store the vectors 

VAR Char.num : INTEGER; 

Char _ to_sJeii ; CHAR; 

Char found : bOOLEAN; 

Char_grid : Grid; 

Cen ter l*o in t ; 

Chac__veciOr : Vector; 

Muiiio f _po i n t s : INTEGER; 

W E (i I N 

FOR Char_no«M : - 1 TO N_chjrs DO 
BEGIN 

WR 1 I E l N t ‘ Char_num = ‘ , Clidr ntnu: 2 i ; 

Char_to_ gcn ;= ReC t»_chyr ( Cli<>r jiumi ; 

WKITELN i ’ Ch ar _ to_gen - ' , Ctiar_to_gen I ; 


File: PC R PAS A » 


Last written on 02/19/88 at l9:0t:40 


Page 32 


Read_char IChar_to_gon, Data_file, Char, found, Char_grid); 

WKITELN C Chdr_found = Char_f#und1; 

IF Char__f»und = TRUE THEN 
BEGIN 

Char_grid := Filled <Char_gridl; 

F i «d_gr i d_ t r a i t s (Char_grid, Center, Nuii»i_* f _po i n t s > ; 

WKITELN (' F *und grid traits. Center * f ' , Con turf X1:2, 

Centerlfi:2, ' 1 #pts = ' , Num_of_points:2!; 

£ncoJo_input IChar__grid, Center, hum_of_points, Char_voctor, 11; 

WKITELN ('Storing ”' , Char_to_gen, ' “.' >; 

StOre.voC (Char to_gen, Char.vector, Store_file»; 

END; If Char_found = TRUE 
END; Char __nuin 
WKITELN; 

WKITELN ( DUNE WITH Gon_voCtors . ' 1 ; 

WRITELN; 

END ; 

PROCEDURE Read_2 vee fi 1es •Vector_.fi le_l, Vector file.2 : String; 

VAR Ch ar _veC_sot _ I , Char _vec_ so t __2 : Vector^sutl; 

Read tw* vector files 

VAR Char_num ‘ INTEGER; 

Chai‘_ t* gun : CHAR; 

Char_found : BiOLEAN; 

Char_voctor_ 1 , Char_voCtor_2 : Vector; 

y eg i n 

FOR Chdrjium : = 1 TO N_Chars D§ 

BEGIN 

WRITELN i ' Chdr_nunt = 1 , Char _num: 2 i ; 

Char_to_gon Rec_to_char (Charjiumi ; 

Read voc (Char t* gen, VeCtor_fi 1e_1 , Char_fOund, Char_vector_t I ; 

IF (Char_f*und = FALSE! THEN 

bEGlN 

WRITELN Char _t 0_.gen , 1 n* t f •und in’, Voc t*r_fi i e_ 1 , ' . ' 1 ; 

Initial i?e_voc tor 1 Char vect»r_ 1 1 ; 

END; 

IF i V eel Or_fi 1o_2 = Vector fi lo 1) 

THEN Char_voctor_2 :« Char_vector_1 
ELSE 
BEGIN 

Read_veC tChar_to gen, Vector__fi 1o_2, Char .found, Char_vcCt*r_21; 
IF (Chdr_found = FALSEI THEN 
BEGIN 

WKITELN Char _t o_gon , ' ” not found i n ' . Voc t or __f i 1 e _2 , 

' .' j; 

Initia 1i7 0 _vec t«r t Char vec t*r_21; 

END; 

END; 

Char _voC_SO t _ i IChar_nu»nl ;* Char _vcc tor _1 ; 

Char _vec_se t_2 fChar_nun»J : = Char_vec tor_2 ; 

END; Charnum 


END; 
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PROCEDURE Ge»_outor prods IChdr_voc_sot_1 , Char _voc_sct_2 : Vector_set; 

var Char _«id t_so t : Ma t r I x so t I ; 

Generate Outer products; Vector_fi1o_1 as input, Vector__filc_2 as output 

VAR Ch.ir_i,un> •’ INTEGER; 

Char_veCtor_ 1 , C h a r __ voC t or _2 l Vector; 

BEGIN 

WRITELN I ' Gonordting outer products.' I; 

FOR Ch«r_nom :* 1 TO N^chars PQ 

OutCr_produCt I Ch ar _vcC_S e t _2 I Ch a r_n um) , Char_voc__se t_if Char_numl , 

Char__ma t_so t i Char _iki») 1 ; 

WR J T E L N \ 4 Pone generating outer products,' ); 

END; 

PROCEDURE Associate_vec_sets <Char_vec sot_ 1 

Char_veC_se t_2 
B 

VAR A 

Associate vector sets 

VAR 

Pair, P i k d 
Gprime 
Do It a_a 
Char jiid t _sc t 

BEGIN 

A := B ; Start with the old matrix 

Gon_°utor_pr*ds 1 Char_vec_sct_1, Char_vcc_set_2, Charjiat_soti; 

WRiT E L Hi ' Numbor Of presentations per Char = ' , Pr oson t ; 6 , ' ) ; 

WRIIELNl'Learning constant = 1 / I F , G 1 - ' *T 

WRITELN ('Beginning asSOCI atiOn.' I; 
fOR Pair :* 1 TO (Present ♦ N chars! DO 
B£G 1 N 

Pikd := Rand_int IN_chars I ; Pick a vector randomly 
Add Matrices * A ,Char _mal_sotlPikd},A); 

Mati- i x_I i me s_voc tor ( A , Char_vec_se t__ 1 I P i kd I ,Gpri me ) ; 

Widrowjiof f J Char_voc_sot_2{PiKd],Gprimo,Char_vec_set_l(P ikd i . 

Inner _produc t lChar_voc_set_1 iPiKdi ,Char_voc_sot_2| Pikdl I ,0o1 t a_a ) ; 
Add iuatrices f A , t)e 1 t a_a , A 1 ; 

END; 

ENO ; 

PROCEDURE A s soc i a t e_voc_f i 1 es I Vec tor__f i Ie I, Vec tor f i 1 e_2 : String; 

0 1 d__ma t r i x : Matrix; 

VAR Now matrix ; Matrix!; 

Associate vectors in vector files 

VAR 

Char_vec_so t_ 1 , Char_voc_sot_2 Vector_sct; 
b E G 1 N 

Read_2_vec_fi 1 os lVector_fi1o_ 1 , Vector_fi1e_2, 

Char _veC_so t_ I , Char_vec_sct_2I ; 


INTEGER; 
Vector; 

M a t r i x ; 
Matrix _sot; 


: Vectorset; 

: Vec tor_sc t; 

: Matrix; Old ma trix 

: Matrix!; New matrix 
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Associate vec sots (Char vcC_sot_1, Char vec_set_2, Oldmatrix, Nowjna tr i x ) ; 
END; 

PROCEDURE Store matrix (Mat_to_store : Matrix; 

Ma t_fi 1 0 _naiue ; String); 

Store a ma t rix 
VAR 

Row, Col : INTEGER; 

BEGIN 

WRITELN ('Storing ma t rix. ' ! ; 

OPEN IF ILE_NAME = Mat_file name, 

F I LE_VARI ABLE != M a t _ f i 1 o’,” 

HISTORY := UNKNOWN, 

ACCESS_METHOD ;* SEQUENTIAL, 

REC0Ri_TYPE := FIXED, Each matrix has the same length 

CARRIaGE_C 0NTROL ;* NONE, No special control Codes 
ORGANIZATION :* SEQUENTIAL, 

■1SP0SITIQN := SAVE!; Retain the file when it is closed 

EXTEND (Mat_filei; 

FOR Row : = 1 TO Dimensiona 1ity DO 

FOR Col := 1 TO 0imensiona1ity DO 
BEGIN 

Mat^filo - * := M at_to_s tor e iRow,Coll; Put element into file buffer 
PUT (Mat fi!ci; Store the matrix 
END ; 

CLOSE <Mat^filo); 

WR1T E L N (' Done storing matrix.' 1; 

END ; 

PROCEDURE Road_matrix (Mat_fi1o_namo : String; 

VAR' Mat_to_rcad : Matrix); 

Read a ma trix 


U> 


VAR 

Row, Col : INTEGER; 

BEGIN 

WRITELN I' Re ading matrix. 1 1; 

OPEN ( F 1LE_NAME .*= Mat file name, 

FILE_VARIABLE Ma t _f i 1 c*T 

HISTORY := UNKNOWN, 

ACCESS_METHOD :» SEQUENTIAL, 

REC0RD_IyPE : = FIXED, Each matrix has the same length 

CARR IAGE_C0NTROL ;s NONE, No special control codes 
ORGANIZATION sequential, 

DISPOSITION .‘s SAVE I ; Retain the file when it is Closed 

FOR Row := 1 TO Dimensiona1ity DO 
FOR CoT ;* 1 TO Dimensionality DO 
BEGIN 

IF I Row = l i ANi (C*i * 1) 

THEN RESET iMat_fi1eI 
ELSE GET IMat_fi lei; 

Mat to read (Row,Col) is Mat file-*; 
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END ; 

CLOSE iMa t _ f i 1o1 ; 

W R I T E L N ('Done rcddini matrix.' 1; 

END; 

PROCEDURE BSM i ln_voC : Vector: 

A : Matrix; 

VAR Out_voc : Vector); 

brain-state-in-a* bo x processing 

VAR 

Cos, Alpha, Gamma ; REAL; 

1 tv-rate, X : INTEGER; 

0 ld_vcc, ice ay, Feedback, Temp, Sum Vector; 

FUNCTION limit lb : Vector) : Vector; 

Sot maxi mums for element values 

VAR 

C ; V ec tor; 

Threat* : RE al ; 

a ; INTEGER; 

BEGIN 

C : = b ; 

Throsh := i.5; 

FOR X : = 1 to Dimensionality 00 

IF C Ix| > Thr esh I HE N 

C I a) := Thresh ELSE 

IF C [KI < -l . Thresh THEN 
C I >. I : s - i * Thresh; 

Limit :s cI 

END; 

BEGIN 

Alpha r = 0.2; Feedback 

Gamma ;s 0.9; Decay 

Iterate : = 25; 

x := 0; 

Cos :* 0; 

Out_voc : = Invoc; 

WHILE (Cos < J) AND (>. < Iteratol Dt 
BEG J N 

x : = K » i ; 

01d_vo(; : = 0ut_vec; 

Sea 1ar times_veC tor i Gamma,Out_vcC,DecayiI 
M a t r i * times_voctor iA,Out_veC, Tempi ; 

Sea)ar^times veetor I A 1 pha, T emp,feedback); 
Add VeC tors I Decay.Feedback,Sumj; 

0ut__vec Limit (Sum); 

Cos := Vector cosine lOJd vec.Out_voCi; 

END; 

E NO; 

PROCEDURE find match (TestveC : Vector; 
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Char _vec_.se t : Voc tor^sc t ; 

VAR Ch ar _ma tch ; CHAR; ~ 

V4R Cos : real; 

VAR Mu 1 t i p l e_!»a t Ch : BOOLEAN j; 

Find the Closest match between the model character set and the test vector 
Test_vec. Cos is an indicator of the quality of the match. 

VAR 

Test_cos : REAL; 

Test, Char jnatchjiuiii : INTEGER; 

BEG 1 N 

Cos := 0; The Current largest cosine between vectors 
Test :* 0; Vector number 
Char_match_num :* 0; 

Charon* a tch : s ' ' ; 

Mu \ tip1e_matCh := FALSE; TRUE if more than one match is found 

Moss ago ( I. ' Comp a ring test vector with mode 1 vectors.'); 

FOR Tost :* I TO N_Ch ar s »0 
BEGIN 

Testcos :* Vector_cosino (Test_vec,Char_vec_setITestJI; 

IF ( ( 1-Test_cos = 1 -Cos 1 AN0 (Cos <> 0)1 THEN 

if the quality of this match is the same as the quality of some 
previous match, then: 

Mu 11iplo_match := TRUE ELSE 
IF <(l-Test_cosi < (1-Cos)) THEN 

If the quality of this match is bettor than the quality of all 
previous matches, then: 

BEG 1 N 

Mu 1tip1c_match := FALSE; 

Char_match_num Tost; 

Cos := Tost_cos; 

EMU; 

END; Tost 

IF ( Ch arjna t chjuim > 0) THEN Ch ar__ma t Ch := Roc_tO__Char (Char_match_numl ; 
END; 

PROCEDURE Dr aw_sca 1 os; 

Draw scales for- screen editing 

BEGIN 

Message (Screcn hoight-2, ' I 2 3 4' ); 

WR1TELN (' 123456 /890»23456V890 1234567890 I23456V89D' I ; 

WRIIELN i ' j 1 ' ) I 

VRiTELN i ‘ 2 2' ) ; 

VRITELN I* 3 3' i ; 

WRITELN (' 4 4' 1 ; 

wRi teln r' 5 5' ) ; 

WRITELN l' 6 6' 1 ; 

writeln r / y* I; 

WRITELN I' a 8*1; 

WKI TEL N f' 9 9‘ ; 

WRI IELN (' i0i23456Y890i23 '1; 

WRITELN ( ' 1 ' 1 ; 
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WRI TEL N 2 * > J 
WKI TflM i ' 3' >; 

WR 1 1 E 1 N ( 1 4' » ; 

WKIfEL N r 5 • ; 

END; 

PROCEDURE Road bitpad (VAR Pata_gri<J : Grid); 

Read the BIT P A 0 

VAR 

Binput 

Cl, C2, bu t ton 
dunk 

SCrccn_coord , Grid__COOrd, Pad_COOrd 
BEGIN 

But ton ;s 0; 

Cur son posn ( 3 , Scrccn_hv; ight - 3 1 ; 

REPEAT 

REAOlN <Pad...in, b_input I ; Read BITPAfl 

If LENGTH iB_input) > 4 THEN ’ Min. Ion. of valid input ■ 5 
BEGIN 

Cl : s Ins tr i 2, b__ input, Comma); Locate 2 commas 
C2 : s. Instr ( Cl * 2, b input, Comma); 

IF 4 C1 * 1) AND IC2 > C1♦1 J THEN Requirements for valid input 
U E G I N 

READV I B_input, P ad _COOr d I X ] , dunk, P dil_coor d ( Y 1 , Junk, button); 

Parse Input to assign coordinates 
IF Button <> Blue Then 
BEGIN 

Gf'id._COOrd 1*1 : = Scrunch ( P ad_cOOrd I X I , Pad_w i d t h , Gr i d_w i d t h ) ; 

Grid COOrd I ¥ ) : s 

Scrunch (Pad coord( < ),Pad_height,Grid_height) ; 

Scrcon_COOrd (Xj ts 

Scrunch lPad_coord(X),Pad_wid t h,Screen_wid t h I ; 

Scr Cvjn_COOrd (y] :» 

Scr unCh <P ad_cOor dI Y j ,Pad hoigh t,Scrconjicigh t) ; 

Cur sor_posn ( Scrceil_COOrd [ X ) , SCrOen_COOrd I Y ! ) ; 

IF Button = White THEN ‘ Mark 
BEGIN 

Data_grid [Grid_CoordI A 1 ,Gr id_coordIY! I := TRUE; 

WRITEtOut char | ill 
END ELSE 

IF Button = Green THEN Erase 
BEGIN 

Data_grid IGrid_COordI X ) ,Grid_COOrdIY J J !s FALSE; 

WRITE I0ut_charI 0 ] ) ; 

E NO ; 

Cur$Or_posn lScrocn_coordlX|,Screen COOrdlYj); 

END; IF Button O blue 
END; IF (Cl > i1 AND 1C2 > Ct*2i * 

END; IF I E Ntj T H ( B_ i npu t ) > 4 

UNTIL Mutton = Blue! 

END ; 


; String; Input string 
; INTEGER; 

: CHAR; Dummy variable 
: Two things; 
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PROCEDURE Get_some_Char (Char_to_got ; CHAR; 

VAR Oatagrid ; Grid; 

Show_scale_ : BOIL E A N ) ; 

Got a character from the BITPAD 

VAR 

Done r BOOLEAN; 

Done_input : CHAR; 

PROCEDURE Char jnessage £Char_to_get ; CHAR); 

BEGIN 

IF Char_tO_got <> ' ' THEN 

BEGIN 

Cursor^posn l0,Sc r een_heigh t ) ; 

WR1TELN ('This is the ,C ha r _ to_g e t,' * character.' I ; 

END; 

END; 

BEGIN 

Done :* FALSE; 

WR1FELN IPdd_ou t, Bi t_rato 1 ; Set up BITPAD for switched*stream input 
REPEAT 
BEGIN 

Message (2, 'Yellow: position cursor; white: mark; green: unmark;' l; 
Message I 1, ' blue: o*it. Begin.' I ; 

IF (Show_sca lO i TRUE) THEN Draw_scales; 

Char juossage 1Char_to_get i ; 

Draw_char (Data_grid); 

Read bitpad ( Data_grid ) ; 

If lShow^sc a 1e = TRUE) THEN 
BEGIN 

Clear_screen; 

Char__messago ( Ch ar _t o_ge t ) ; 

Draw_char (Data_grid); 

END; 

C I ear_ 1 i no ( 2 I ; 

REPEAT 

Ge t eh ar 11 ,' Arc you done with this letter Iy/n1? Dono_input); 
UNTIL (Donc_input = 'Y') OR i0ono_input = 'N'1; 

IF IDonc_input = ' Y' ) THEN Done TRUE; 

END 

UNTIL Done = TRUE ; 

WR1TELN (Pad_Out, 'S' I; Stop reading from BITPAD 
Cursor_posn (0, 1); 

END ; 

PROCEDURE Got_new_char iVAR Data_grid : Grid); 

Get a new Character from the BITPAD 

BEGIN 

CI ear_screen; 

Get sOme_char (’ Data_grid, FALSE); 

END ; 


O 
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PROCEDURE Print vec to_file (Actual_Char : CHAR; 

lot tor : CHAR; 

Voc : Vector; 

F i 1 cnaino : String); 

Output vector to file 

VAR 

Slice, Hit : INTEGER ; 

Counter ; INTEGER; 

BEGIN 

OPENi FILE NAME ;s filename, 

F 1 L E _ V A R I A til. E ;* Print_filo, 

HISTORY T s UNKNOWN, 

ACCE SS__ME.T HOD :« SEQUENTIAL, 

rf. cor D_ Type :* variable, 

carriage control := LIST, 
organization := sequential. 

DISPOSITION ;s SAVEI; Retain the file when it is closed 

EXTEND (Pr int_f i lei ; Append to the file 

WRITELN (Print file, 'Actual*. , Actual char, ’ “ ; Match: , 

Letter, ' *;' 1 ; 

Counter : = 0; 

FOR Slice :s I TO Dimensionality Dt 
BEGIN 

WRITE t P rint _ fi Ie, ' Ve cIS1iC c1:5:2 I; 

Counter ;= Counter * i; 

IF !Counter > = Group) THEN 
BEGIN 

WRITELN (Print_file); 

Counter := 0; 

END ; 

i NO; SI ice ' 

WRITELN iP rin t_ fi le, ' ..---------.. 

CLOSE TPrint_fi1ei; 

END; 

PROCEDURE bSb_voct*rs (VeCS_fi1ename * String); 

BSB vector <, in file 

VAR 

Char_num : INTEGER; 

Chdr_vector ; Vector; 

Char__to_gcn : CHAR; 

Cltdr_found ; BOOLEAN; 
bSB_vector : Vector; 

Invector : Vector; 

B E (i I N 

Readinatrix lAutofile, A u to_ma t r i x t ; 

WRITELN (' Reading and t> Sfc i ng * , Vecs_filen ame, ' . ' » 

FOR Chdr_nuni :s J TO N_charS DO 
BEGIN 

Char_to_gen : = ReC_to_char (Char_numi; 

Head_vec * Char_tO_gen, VeCs_fi 1ename, Char_Tound, Char_vector I; 
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IF (Char found = FALSE) THEN 
BEGIN ~ 

WRITELN i ’ " ' , Char_to_gon, ' " not found. ' I ; 

Ini tial i^e vodor ( Char _veC tor ) ; 

END; 

Matrix_times_ y ector IAutojnatrix, Char_voctor, In vector); 

This was used to delay the n*n-linearity < i . e . , BSBi 
In_voctor := Charvector; 

BSB ( ln_voctor , AutOjftatrix, BSB_vectorl; 

Storevec (Char_to_gen, BSBvcCtor, HSB_voC_fi1e); 

Print_voc_t*_fi1e 1Char_to gen, ' BSB^voc tor, BSB_*utput_fi1O); 

END; Char _num 

END ; 

PROCEDURE Read_BSb_vcctors (H$B_fi1ename : String); 

Read BSB vectors from a file 

VAR 

Char_nuin : INTEGER; 

Charvector : Vector; 

Char_to_r,.;ad ; CHAR; 

Ch ar_found : BOOLEAN; 

BSB_vcCtor t Vector; 

BEGIN 

WRITELN ('Reading BSB vectors.' 1; 

FOR Char jiuih ;a 1 TO N chars DO 
BEGIN 

Char_to_road := ReC__to_char f Charjium) ; 

Read_vec ( C h ar _ to__r cad . B SB_ f i I en ame , Char_found, bSb_veCtorl; 

IF (Charfound * FALSE) THEM 
BEG I N 

WRITELN Char to_road , ' " not found . ' ) ; 

In i t i a 1 i 7e_vcC tor ( b$B_ vector ) ; 

END; 

BSb_vec_set lChar_numl BSB_vector; 

END; Charjium 
BSB^done := TRUE; 

END; 

PROCEDURE Print BSB_veCtors; 

Read and print BSB vectors 

VAR 

Charjium : INTEGER; 

BEGIN 

Read_b S b_vcc tors IBSb_voc_fi lei ; 

FOR Char_num ;a I TO N__Chars DO 
BEGIN 

WRITELN ( ' BSB_veC_set l ' , Charjium;’, 

Pr int voc ( BSB_voc_se t ( Char _nun»3 I ; 

END; 

E N D ; “ 
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PROCEDURE Tos t _one__ i npu t ( Voc s_f i I on ante : String); 

Test ti.o., find match fori one new input frOm the BITPAD 

V AW 

Char _gr » d 
Tostvec 
Center 

Nuiri_of _po i nt s 
Char_ma teh 
Cos 

S*.r atch vec 
Mu 1 tipi o_«»a t eh 
ln vec tor 

BEGIN 

IF iBSB_donu * FALSE) THEN Head BSB vectors once 
BE GI N 

Road_matrix (Auto_fi1o, Au tojnatr i ji j ; 

Read_fc>SB_voctors (Vocs_ fi lcnamei; 

END ; 

Ini t id ) i/e gr id ( Char__gr id 1 ; 

Getnew Char iChar_gridi; Head new character from bITPAO 
Clear lino (21; 

Message ■ 1 , * Processing test input.'!; 

F iml gr id trji ts (Char_grid, Center, Nuni_ o f _po i n t s l ; 

Encode_input (Char_.gr id, Center, Num_of points, Tost_veC, 21; 

Message 11, 'Finding a mat ch .' i ; 

Matrix_timeS_voCtor lAutojnatrin, Tc&t_vcc. In_vector I; 

This was used t* delay the non -1inearity; not currently in use 
InveCtor ; * Tcit vcC; 

BSB I ln_vector , Autojiiatri n, Sc r a t ch_voc i ; 

Test_vcc :« Scratch_voc: 

Find_match (Test_voc, B S H_voc_s e t, Charjuatch, Cos, Mu 11 ip 1 o_ma tch ) ; 

CIear_1ine 1 l i ; 

Clear _1in e (21; 

WH1TELN i'MatCh is “ ‘ , Ch ar_ma tch, quality (cos) is ‘ , Cos:6, ' . ' I; 

IF I Mu 11 iple_match = TRUE) THEN 
WRITELN ('Another ma tch of equal quality was found.'); 

P r i n t _ v e c _ t o_ f i 1 e Char _ma tch, Tos t__v ec, 'TEST.VEC' I; 

Wait_for_return; 

END ; 

PROCEDURE TeSt_a1 I _input (VoC£_fi1cname I String; 

Gr id_f i 1 cname String); 

Tost li.e., find ma tch cS‘ for) all test data from test file 

V AH 

Char_tO_tost t CHAP; 

Char_num : INTEGER; 

Char grid : Grid; 

lost_v c c : Vector; 

Center ; Point; 

Hum of_points ; INTEGER; 

Char match ; CHAR; 

Cos : R E A L ; 


Or i u; 
Vector; 
Point ; 
INTEGER ; 
CHAR; 
REAL; 
Vector ; 
BOOL EAN ; 
Vector : 
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Scratch_vcc : Vector; 

Mu Itip 1c_match ; BOOLEAN; 

Char_found : BOOLEAN; 

In_vector : Vector; 

BEGIN 

IF iBSi)_(Jono = FALSE I THEN 
BEGIN 

Re ad ma t rix (Auto_ file, Au to mat r i x I ; 

Read_BSB_vec tors f Vecs_ filcname) ; 

END; 

Initia 1i?e_grid <Char_grid); 

Message (I, 'Processing test characters.' ); 

FOR Charjium s l Tl N_chars DO 
BEGIN 

Char_to_tost :s Rec_to_Char (Charjium); 

Read_Char (Char_to_tost, Grid_filcname, Char_found, Char_gridi; 

IF (Char_found * TRUE) 

THEN 

BEGIN 

Char_grid :« Filled (Char grid); Fill in gaps in input 
Find_grid_traits lChar_grid, Center, Num_of_points); 

Encode_input (Chargrid, Center, Num _o f _po i n t s , Tost_veC, 2); 

Matrix_times_vector (Auto_matrix, Test_vec, In_voctor); 

This was used to delay the non - l inearity; not currently in 
use 

In vector :* Test_vec; 

BSB <In_veCtor, Auto_matrix, Scratch_vccI; 

Tos t_vec :* Scratch_voc; 

Find_match ( Tost^voC , BSB__voc_so t , Char match, Cos, 

Mu 1 t i p 1 cjiia tch); 

WRITE ('Actual: Char_to_tcst, '"; Match is “' , 

Charjiatch, ' * ; quality (cos) is ', Cos:6, '.'l; 

If (Char_to_test s Char_match) 

THEN WH1TELN 

ELSE WRITELN (' **+'); MarK the mismatches 

IF ( Mu 1 t ip lojiia tCh s TRUE) THEN 

- WRITELN ('Another match of equal quality was found.' ); j—i 

Print_vcc_to_fi1e (Char_to_test, Charjuatch, Te£t_vec, 

M a t ch_ filoi; 

END If character was found 
ELSE WRITELN ('“', Char_to_tost, '* not found; 

END; Char num 

END; 

PROCEDURE Pr i»»t_char_sct (Oata_file : String); 

Print a character set (visual roprosentation) to a file 

VAR 

Filename t String; 

Char_nu«i ; INTEGER; 

Char_to print ; CHAR; 

Chac^grid : Grid ; 

Char_found : BOOLEAN; 

Row, Col ; INTEGER; 
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b E (> i N 

Clear_screen: 

be t _ input i l0, ' En t er f» I cnamc to print to: F i 1cnamcI; 

OPEN (FILE NAME t = Filename, 

FILElVAK1A6LE :* Printfilo, 

H 1 S T • R T ;= UNKNOWN, 

aCCESSHE ThOD : = SEQUENTIAL, 

RECORO..T YPE : = VARIABLE, 

CARRI AGE CONTROL := LIST, 

ORGANIZATION : = SEQUENTIAL, 

DISPOSITION ; = SAVE!; Retain the file when it is closed 

EXTEND * Prin t_fi 1 e 1 ; Append to tho file ’ 

FOR Ci)4r_num : = 1 TO N Chars DO 

BEGIN 

Char^t# print := RoC_tO__Char ICharnuml; 

R ead_ch ar i Cliar _ t o_pr i n t , Oata_filo, Char found , Char _gr i d I ; 

IF Char found = TRUE THEN 

BEGIN 

FOR Row : = Grid height 0 0 W N T 0 1 • 0 
BEGIN 

FOR Col := I TO Gridwidth DO 
IF Char_grid [Col,Row) * TRUE 

THEN WRITE lPrint_filo. Out_Char|lli 
ELSE WRITE (Print fi lo, 0ut_charl01 • Draw row 
WRITELN 1Print_fi1o1: Go to tho next row 

END; Row " 

WRITELN (Print_fi1eI; Leave a blank lino between Characters 
END; IF Char_found = TRUE 
END; Char mini 
CLOSE iPrint_filoi : 

Eft* ; 

PROCEDURE Edit_char_set iSottype : String; 

0ata_filo t String; 

Scales : BOOLEAN); 

Edit a Character set, using the BITPAD 

VAR 

Char_to_edit : CHAR; 

Storcdqrid ; Grid; 

Char found : bOOLfcAN; 

BEGIN 

REPEAT 

Clear _scr eon; 

Message 1 2, Sottypei; 

REPEAT 

Got _C bar II,' Enter Character to edit I 0 = e x i t I ; ' , Char _t#__od l t I ; 
UNTIL IChar_to_edit = '0' I OR 

< OKI) TChar_tO_edi t I >« ORD I'AMI OR 
l ORD I Char_to_.ed i t i ORD l'2'li; 
if Char_to_odit <> 'O’ THEN 
BEGIN 

I n i t i a 1 i /e_gr’ i d I S t»r ed_gr i d I ; 
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Read_Char IChar_to_edit, Data_filo, Char_found, Storod_grid); 

Got_sOme_Char IChar_to_edit, Stored_grid, Scales); Edit 
Store_Char (Char_to_Odit, Stored_.gr id, Data filel; 

EN#; 

UNTIL Char to edit = ’O'; 

ENI ; 

PROCEDURE Initialize; 

One-time initial routines, like securing BITPAD; get terminal type 
BEG I N 

C1e a r_scroen; 

REPEAT 

Ge t_Char M0, Ms output directed to a VT220 ! y/n ( ? VT220I; 

UNTIL (VT220 3 ’ r I OR IVT220 * ' N' I ; 

IF i VT220 = MM THEH 
BEGIN 

OPEN IPadin, 'bitpad$TTM; 

RESET IPad_ini; 

OPEN IPad_out, bitpadSTJ' ); 

REWR I TE < Pad _OUt1 ; 

END; 

Ou t_char 10) :* ' M Screen character representing 0 
Out char {TI :s '; * Screen character representing 1 
END; 

PROCEDURE Cleanup; 

final procedures, like dumping BITPAD 
BEGIN 

IF I VT220 * MM THEN 
BE G I N 

CLOSE IPad_in); 

CLOSE IPad'outi; 

END; 

END; 

PROCEDURE Loarn_char_scts (Num_of_sets t INTEGER); 

Learn character sots (either model, »r mode latest) 

VAR 

Char_voc_sot : Voctor__set; 

Char n»at_set : Matrix sot; 

0 ld_ma tru : Matrix; 

BEGIN 

WRITELN!' Dimen sionali ty * DimensiOn a 1 it y : 1, ' . ' I ; 

WR I TE L N ; 

Gon_vectors (Char_file« Vocsi_fi1oi; Encode model characters 

1nitia 1izo_ma t rix I 01d_ma tri*); 

Associato_vec_filos (Vocs i_filo, Vecsl_file, 01d_matrix, Autojuatrix1; 

Autoassociate model vectors 
Storejnatrix (Auto_matrix, 4u to_.fi lei; 

BSb_veCtors tVeCSl_fi1o); In the present implementation, the MSB 
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non - 1 i neari ty is introduced hero 
IF < Nun i of sets > li THEN Now learn test data (maybe I 
bE li I h” 

Read matrix (AutO_filo, Aut0_matrix); 
lid matrix := Autojiiatru; 

(ien vectors (Testfile, Vecs2_file); ’ Encode test characters 
A s soc i a t e_vec_f i 1 e s *Vecs2_file, Vecs l_f i le, 01d_matrix, Au to jiiatr i x I ; 

Associate test vectors with mode 1 vectors 
Store_matrix lAutojnatrix, Auto_filei; 

END ; 

END ; 

PROCEDURE Lvdrn test_se t; 

Learn only the test set of data 

VAR 

Char_vec_set : VeCtor_set; 

Char_mat_set : Matrix_set; 

I Id juatr ix Matrix; 

BEGIN 

WRIT E L N <' 0imen siona 1it y = ' , Dimensiona 1it y: 1 , ' . ' ) ; 

WRITELN ; 

Gon_vectors (Testfile, Vecs2_filel; 

1 n i tia 1 i7e_mat rix \01d_matrixI ; 

Associate_vec_fi 1 os (Vecs2_filo, Vocs2_f11o, 01d_matrix, Autojnatrix); 

Autoassocia to test vectors 
Storejnatrix iAuto matrix, Auto_filel; 

BSb_vectors (Vecs2_file); 

END ; 

PROCEDURE Main; 

Process user's commands 

VAR 

Command Z CHAR; 

BEGIN 

Initia)i7e; 

REPEAT 

Clear screen; 

Message tScreen_height, 'Welcome.'1; 

W R 1 T E L N ; 

WRI TELN I ’ Commands:‘ 1; 

W R I T E L N ; 

WRITELN (' M Edit mode 1 character set'); 

WRITELN (' P Print mode 1 character set to a file' I; 

WRITELN (' S Print line segments for model <S tost vectors' ); 

WRITELN (' R Print endpoints for model & test vectors' I; 

WRITELN (' C Draw a trace of a stored test character'I; 

This is used in conjunction with the tracer; not implemented 
WRITELN (' £ Edit test character sct'l; 

WRITELN (' D Print test character set to a file' ); 

WRITELN; 

WRITELN (' T Test one character for recognition I screen input)' ); 
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WRITELN (' A Test all characters for recognition (file input)' ); 
WRITELN (' i Encode input, learn, & BSb for model characters' ); 

WRITELN (' 2 Encode input, learn, & BSB for model + test characters' ); 

WRITELN (' X Encode input & learn for test characters only'); 

WRITELN (' Q Quit this system' ); 

WRITELN; 

Getchar (2, 'Enter command: ' , Command I ; 

CASE Command OF 

'A' : Test al l_input (BSB_vec_fi 1e, Test_file); 

'C' : Draw_trace (Test_file); 

'D' : Print_char_set (Test_file); 

'E' : Edit_char_set ('Test set', Test_file, FALSE); 

'M' : Edit_char_set ('Model set', Char_file, TRUE); 

' P' : Print_char_set (Char_file); 

'R' : Print_endpoints (Char_file, Test_filel; 

'S' : Print_line_segs (Char_file, Test_file); 

' T' : Test_one_input (toSB_vec_fi1e); 

' 1' : Learn_char_sets (1); 

'2' : Learn_char_sets (2); 

'X' : Learntestset ; 

'Y' : Test_a11_input (Vccs2_file, Test_file); 

' Q' : ; Do no thing 

•THERWISE ; Do nothing 
END ; 

UNTIL Command = 'Q' ; 

Cursor_posn (0,0); 

C1eanup; 

END ; 

BEGIN 

Main; 

END . 


4> 

K) 
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